wie Kann ich "Format/Blatt/einblenden verhindern?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: wie Kann ich "Format/Blatt/einblenden verhindern?
von: Hans-Jörg
Geschrieben am: 04.07.2002 - 07:53:33

Hallo,
ich dachte über VBA ausgeblendete Blätter können nicht mehr ohne weiteres eingeblendet werden.Habe auf einem sogar ein Passwort über UserForm. Dies kann nun umgangen werden.

Über Userform gebe ich die möglichkeit Blätter ein oder auszublenden.Beim Speichern werden alle Blätter bis auf "Start" ausgeblendet.

Wie kann ich das Einblenden über Format/.... verhindern?
Hans-Jörg


   On Error Resume Next
   Tstk.Activate '(Codename einer Tabelle)
   Tstk.Columns("A:Z").Delete
   Tinput.Columns("A:Z").Delete
   Tsts.Activate
   For Each wksAct In Worksheets
         If wksAct.Visible = xlSheetVisible Then
         If Not wksAct.Name = "Start" Then
             If Not wksAct.Name = "Makro nicht gestartet" Then
                 Worksheets(wksAct.Name).Visible = xlHidden
          End If
         End If
      End If
   Next wksAct
   On Error GoTo 0

nach oben   nach unten

Re: wie Kann ich "Format/Blatt/einblenden verhindern?
von: Andreas
Geschrieben am: 04.07.2002 - 08:00:36

Hallo Hans-Jörg,

ersetze xlHidden durch xlVeryHidden (oder xlSheetVeryHidden?) !
Nun können die Blätter nicht mehr über das Menü eingeblendet werden!

Viel Spaß,
Andreas


nach oben   nach unten

Re: Super vielen Dank Andreas
von: Hans-Jörg
Geschrieben am: 04.07.2002 - 08:08:01

.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "wie Kann ich "Format/Blatt/einblenden verhindern?"