Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Spalten mit Kennwort sichern





Frage

Hi Leute, hier ist mein Problem: Aus Datenschutzgründen muss ich in meiner Tabelle eine Spalte ausblenden. Diese soll dann nur von bestimmten Usern wieder eingeblendet werden können. Beim Schließen der Tabelle soll die Spalte wieder automatisch ausgeblendet und geschützt werden. Mir ist nur die Lösung über den Blattschutz eingefallen, wobei die nicht sonderlich elegant ist, da man vor dem Schließen die Spalte ausblenden und den Blattschutz mit Kennworteingabe neu aktivieren muss. Wisst ihr eine elegantere Lösung, evtl. über ein Makro?? Flo

Antwort 1 von Kurt50

hallo Flo,
Du brauchst vier Makros:
das erste Makro:
Sub Auto_Open()
Worksheets("test").OnSheetActivate = "Tab1"
End Sub
das zweite Makro:
Sub Tab1()
ActiveSheet.Unprotect
Columns("A:A").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Protect Password:="test"
End Sub
das dritte Makro:
Sub Auto_Close()

Run "Tab2"
ActiveWorkbook.Save
End Sub
das vierte Makro:
Sub Tab2()
ActiveSheet.Unprotect Password:="test"
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect Password:="test"
End Sub
Du mußt natürlich zuerst das Tabellenblatt "test" anlegen und die Spalte A ausblenden und das Blatt mit test schützen. Wenn die Datei geöffnet wird, ist Spalte A ausgeblendet und es wird das Passwort abgefragt, erst nach eingabe des Passwortes wird die Spalte A eingeblendet.
Gruß
Kurt



Antwort 2 von Viper311

Hey Kurt,

danke für die schnelle Antwort!
Klappt auch super, ich habe nur ein kleines Problem mit dem Passwort.
Da das offen in dem Makro steht, kann es sich jeder holen und dann benutzen.
Gibt es eine Möglichkeit, Makros vor Zugriff und Bearbeitung zu schützen?

Mfg Flo

Antwort 3 von _gau_

Gehe im VBA-Projektexplorer mit der rechten Maustaste auf das VBAProjekt(DeineArbeitsmappe), wähle "Eigenschaften von VBAProjekt..." und dann "Schutz" (Paßwort gut merken ;-).

Speichern und Schließen...

[gau]

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: