Office: (Office 2007) Sheets ansicht sperren

Hallo zusammen,

ist es möglich, das bei eine xls mit 5 Sheets bei einem Sheet die ANSICHT gesperrt wird und die ANSICHT nur mit Freigabe (Passwort) wieder möglich ist???

Der Reiter darf ruhig sichtbar sein, aber wenn er angeklickt wird sollte eine Passwort abfrage starten, ansonsten kein zugriff (Ansicht)

Gruß & schon mal Danke

Rheinbote

:)

 

Moin Rheinbote,

der Weg ist mir nicht bekannt. Ich würde die Blätter einfach ausblenden und die Mappe schützen. Soll der Zugriff dennoch möglich sein, könnte ich mir vorstellen, dass per Makro die Blätter eingeblendet werde. Der Makrorecorder gibt hierzu sicherlich eine gute Codebasis ab. Davor muss dann nur noch eine Inputbox zur Abfrage des Passwortes gestellt werden und eine If Schleife. Wenn Passwort korrekt, dann wird eingeblendet. Das Ganze gestartet über einen Button im Sheet vielleicht. Probiere es mal aus und melde Dich wenn Du nicht weiter kommst.

 

Hallo Woody,

ehrlich gesagt, hab ich keine Ahnung wie ich das machen soll.
Hast du vielleicht ne Muster XLS ???

Gruß Rheinbote

 

Moin Rheinbote,

unter Extras/Makro/Aufzeichnen startest Du den Makrorecorder, der deine Aktionen im Hintergrund als VBA Code mitprotokolliert. Hier biete es sich an ein Makro aufzuzeichnen, während zu zunächst die betreffenden Blätter ausblendest. Stop, dann das Makro und starte die Aufzeichnung erneut wenn du die Blätter einblendest. Unter Alt + F11 kannst Du dann im Modul1 usw. dein aufgezeichnetes Makro ansehen.

 

Hi Woody,

habe dieses Makro aufgezeichnet.
Code:

Den Button mit dem dazu gehörigen Makro hab ich eingebunden, aber die bekomme ich die Passwortabfrage hin???

 

Moin Rheinbote,

nur kurz: ich habe dich nicht übersehen, aber ein Meeting jagt das andere derzeit. Ich weiß nicht wann ich mich melden kann. Bis denn dann ...

 

Moin, Rheinbote,

zwei Dinge:

1. die Tabellen können auf diese Art immer über Format/Blatt/Einblenden händisch eingeblendet werden, der Parameter für sicher und nur aus der VBE wieder einzublendende Tabellen lautet xlSheetVeryHidden
2. eine Abfrage vor das Einblenden schalten

Code:

 

ich glaub ich bin zu doof dafür...

in Tabelle1 habe ich diesen Code eingebunden:
Code:

Damit sollte doch beim öffnen der Tabelle1 das Passwort gesetzt werden und gleichzeitig die Tabellen2 & 3 ausgeblendet werden, oder???
Sie werden aber nicht ausgeblendet????

Dann hab ich einen Button auf Tabelle1 gesetzt mit foldendem Code
Code:

Wenn ich jetzt den Button drücke erscheint die INPUT BOX in der ich "geheim" eingebe
Dann erscheint leider die Msgbox "keine Berechtigung!"......


Keine Ahnung wieso????

Hab mal meine TEST Datei mit angehangen.

Am liebsten möchste ich, das beim Öffnen die Tabelle2 & 3 ausgeblendet wird und nur über den Button mit Passwortabfrage wieder sichbar werden kann.

Was mir grade noch einfällt, was ist wenn man die xls Datei mit den geöffneten Tabelle2 & 3 abspeichert. Werden diese dann automatisch beim Öffnen geschlossen????

Ich hoffe mir kann jemand helfen???

Danke &

 

Moin,Rheinbote,

wer sich in VBA versucht, sollte schnellstens lernen, dass das Ereignis Workbook_Open() in DieseArbeitsmappe gehört oder als Autpen() in ein allgemeines Modul... *wink.gif*

 

uupppppssssssssss.... So was dummes....
Also die Tabelle 2&3 sind weg *wink.gif*

Aber bei der Passwortabfrage habe ich immer noch Probleme...

Die Tabellen bekomm ich nocht mehr sichtbar.

 

Moin, Rheinbote,

die globale Variable gehört in ein allgemeines Modul und sollte als Public statt Private (Konstante ist in dem Fall nur modulweit gültig) dimensioniert werden. Siehe Anhang.

 

Ich hab da noch was....bei der Passwort eingabe ***** statt "geheim"
IST das möglich...

 

Moin, Rheinbiote,

einfachtse Variante: eine UserForm erstellen, ein Textfeld, bei PasswortChar das * einstellen, zwei Schaltflächen hinzu mit Code Abbrechen und Übernehmen. Ablauf dann hinter die Schaltlfäche übernehmen und anpassen (Aufruf InputbBox kann weg, Inhalt sollte per Textbox1.Value/~.Text geprüft und übernommen werden).

Die Variante per API und InputBox kann ich Dir bei Bedarf auch gerne liefern... *wink.gif*

 

Hi,

ich glaub er Bedarf ist da.

Ich habe noch zusätzlich ein Ereignis Workbook_BeforeSave & Workbook_BeforeClose eingebaut.

Beim Öffnen waren die beiden Sheets zu lange zu sehen.


ACH JA, gibt es noch eine andere Bezeichnung für
Sheets("Tabelle1").Select damit man sagt nimm die ersten Reiter der Datei???

 

Hallo,

Worksheets(1) bezieht sich auf das 1. Tabellenblatt in der Datei.

Den Rest siehe Anhang.