Excel VBA: Makro do tworzenia kopii zapasowej arkusza w nowym pliku

🔍 Co robi to makro?

Makro automatycznie tworzy kopię zapasową aktywnego arkusza i zapisuje ją w nowym pliku Excel w folderze użytkownika. Nadaje plikowi nazwę zawierającą datę i godzinę, dzięki czemu nie nadpisuje poprzednich wersji.

📋 Kod VBA: każda linia od nowego wiersza

Sub ZrobKopieZapasowa()
  Dim nowyPlik As Workbook
  Dim nazwaPliku As String
  Dim folderDocelowy As String

  folderDocelowy = Environ("USERPROFILE") & "\Pulpit\"

  nazwaPliku = "KopiaZapasowa_" & Format(Now, "yyyy-mm-dd_hh-nn-ss") & ".xlsx"

  ActiveSheet.Copy
  Set nowyPlik = ActiveWorkbook

  Application.DisplayAlerts = False
  nowyPlik.SaveAs folderDocelowy & nazwaPliku, FileFormat:=xlOpenXMLWorkbook
  Application.DisplayAlerts = True

  nowyPlik.Close SaveChanges:=False

  MsgBox "Utworzono kopię zapasową na pulpicie: " & nazwaPliku, vbInformation
End Sub

🛠️ Jak działa to makro?

1. Tworzy kopię aktywnego arkusza (nie całego skoroszytu).
2. Zapisuje ją w formacie .xlsx na pulpicie użytkownika.
3. Nazwa pliku zawiera dokładną datę i godzinę utworzenia.
4. Plik jest automatycznie zamykany – gotowy do archiwizacji.

💡 Co możesz zmienić?

• Zmień lokalizację zapisu, np. na konkretny folder sieciowy lub dysk D.
• Możesz dodać dodatkowe zabezpieczenie pliku hasłem (zaawansowane).
• Możesz kopiować cały skoroszyt zamiast pojedynczego arkusza (np. ThisWorkbook.SaveCopyAs).

✅ Podsumowanie

To makro pozwala błyskawicznie utworzyć kopię zapasową arkusza bez potrzeby ręcznego zapisywania i zmieniania nazw. Idealne do zabezpieczania danych przed edycją lub jako wersjonowanie w pracy z raportami.