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

• #22319 gaben86 csendes tag

  Új Válasz 2014-07-07 21:36:35 #22319

  Ú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

  

  gaben86

  csendes tag

  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If Cells(1, 1).Value = "" Then
  MsgBox ("Mentés elott az A1 cellát ki kell tölteni.")
  Cancel = True
  End If
  End Sub
  
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Cells(1, 1).Value = "" Then
  MsgBox ("Kilépés elõtt az A1 cellát ki kell tölteni.")
  Cancel = True
  End If
  End Sub

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