Új hozzászólás Aktív témák

• #14536 Delila_1 veterán lacipapi #14530

  Új Válasz 2012-08-02 14:28:42 #14536

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lacipapi #14530 üzenetére

  Másik módszer a másolathoz:

  Sub Masolat()
  Dim WB As Workbook, FN As String
  Set WB = ActiveWorkbook
  FN = WB.Name
  Application.DisplayAlerts = False 'kérdés letiltása
  
  WB.SaveAs Left(FN, Len(FN) - 5) & "_másolat"
  
  Application.DisplayAlerts = True 'kérdés engedélyezése
  End Sub

• #14531 lappy őstag lacipapi #14530

  Új Válasz 2012-08-02 12:25:11 #14531

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz lacipapi #14530 üzenetére

  Szia!
  Sub SaveWorkbookBackup()
  Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
  If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
  Set awb = ActiveWorkbook
  If awb.Path = "" Then
  Application.Dialogs(xlDialogSaveAs).Show
  Else
  BackupFileName = awb.FullName
  i = 0
  While InStr(i + 1, BackupFileName, ".") > 0
  i = InStr(i + 1, BackupFileName, ".")
  Wend
  If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
  BackupFileName = BackupFileName & "_masolat" & ".xls"
  OK = False
  On Error GoTo NotAbleToSave
  With awb
  Application.StatusBar = "Munkafüzet mentése"
  .Save
  Application.StatusBar = "Munkafüzet mentése..."
  .SaveCopyAs BackupFileName
  OK = True
  End With
  End If
  NotAbleToSave:
  Set awb = Nothing
  Application.StatusBar = False
  If Not OK Then
  MsgBox "Biztonsági másolat nem kerül mentésre!", vbExclamation, ThisWorkbook.Name
  End If
  End Sub

Új hozzászólás Aktív témák