title image


Smiley Re: Im Beitrag schreibt er aber "eines dieser Blätter mit einem Lesezugriff"
Hallo allerseits!



Das könnte man mit folgendem Lösungsansatz realisieren:



In das Codefenster von "Diese Arbeitsmappe" folgenden Code



Dim wsh As Worksheet

Dim bol_saved



Private Sub Workbook_Open()

Call init

bol_saved = True

pw = InputBox("Lesepasswort für " & wsh.Name)

If pw = "test" Then

wsh.Visible = xlSheetVisible

End If

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call init

wsh.Visible = xlSheetVeryHidden

If bol_saved Then ActiveWorkbook.Save

End Sub



Sub init()

Set wsh = ActiveWorkbook.Worksheets("Tabelle3")

End Sub



Das VBA-Projekt dann noch schützen - und hoffen, dass es keiner knackt!



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: