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

• #23317 m.zmrzlina senior tag Mittu88 #23314

  Új Válasz 2014-09-18 15:48:02 #23317

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Mittu88 #23314 üzenetére

  Nekem azt sikerült kiötleni (na jó innen loptam :-) hogy hozzáadsz a munkafüzetedhez egy lapot amin csak egy információ van a felhasználónak, hogy "Nincs engedélyezve a makró. Zárd be a munkafüzetet és nyisd meg újra miután engedélyezted a makrókat!". A fálj bezárásakor ezen a lapon kívül minden munkalapot elrejtesz és mentesz. Ha valaki engedélyezett makróval vagy letiltott makróval de biztonságos helyről nyitja meg a fájlt akkor a Worbook.Open esemény során az összes munkalap rejtése megszűnik csak az üzenetet tartalmazóé marad meg ergó tud dolgozni a user. Ha viszont nincsen engedélyezve a makró akkor megnyílik a fájl de csak egy lap látható amin az üzenet van (hiszen úgy mentetted el a fájlt hogy az összes többi rejtett).

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  
  Dim sh As Worksheet
  
  For Each sh In Worksheets
  sh.Visible = xlSheetVisible
  Next
  
  For Each sh In Worksheets
  If sh.Name <> "figyelem" Then sh.Visible = xlSheetVeryHidden
  Next
  
  Application.DisplayAlerts = False
  ActiveWorkbook.Save
  Application.DisplayAlerts = True
  
  End Sub
  
  
  Private Sub Workbook_Open()
  
  Dim sh As Worksheet
  
  For Each sh In Worksheets
  sh.Visible = xlSheetVisible
  Next
  
  For Each sh In Worksheets
  If sh.Name <> "figyelem" Then
  sh.Visible = xlSheetVisible
  Else
  sh.Visible = xlSheetVeryHidden
  End If
  Next
  
  End Sub

  Ja és nem Insert>New>Module-ba másolod a makrót hanem a Thisworkbook>Worksheet-ba

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