Arbeitsmappe schützen / Authenifizierung
29.11.2021 08:26:18
Holger
bisher konnte ich schweigend viele gute tips hier finden.
Nun habe ich eine Idee die nicht funktioniert / wo ich nicht weiter komme.
Stand jetzt: Ich rufe Daten von einem SQL Server ab und kann Recrodsets oder Querries ausführen und verarbeiten.
Soll : Nun ist die Programmierung soweit vorangeschritten das ich die Arbeitsmappe mit einem Kennwort schützen möchte.
, ganz normal mit Excelmethoden. Das ist kein Problem.(Datei>Informationen>Areistmappe schützen)
Wenn die Tabelle im Netzwerk ausgeführt wird, und Makros aktiviert sind. Kann ich den User über die DB authentifizieren oder mit der AD,
und dann möchte ich die Tabelle automatisch entsperren. Nur das Entsperren klappt nicht. Es kommt immer die Excel Kennwort Abfrage.
Wo muss ich dies anlegen ? Geht das theoretisch !?
Option Explicit
Call CheckProtect
Private Sub CheckProtect()
'Es wird initial geöffnet
ThisWorkbook.ProtectStructure = False
ThisWorkbook.Unprotect Password:="PWD"
ActiveSheet.Unprotect Password:="PWD"
End Sub
Hier soll die Tabelle geöffnet und automatisch entsperrt werden .
Irgendwelche Ideen ?
Tabelle in der AD - Authentifizierung
Tabelle ausserhalb der AD - Excel Master Kennwortschutz
Danke im Voraus