Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

locked / unlocked

locked / unlocked
30.12.2002 18:38:47
Holger
Hallo Forum,

sitze jetzt schon den ganzen Tag dran und komme einfach nicht weiter. Habe auch schon mal vorher weiter unten gepostet unetr selection.locked=false gepostet. Mein Problem: Ich habe einen vba-code geschrieben. Wenn das Programm gestartet wird kommt immer die Sicherheitsabfrage. Wenn hier der makro deaktiviert wird soll der user keine eingaben vornehmen können. Deshalb habe ich die mappe geschützt und alle blätter darin mit kennwort. wenn jetzt der user bei der sicherheitsabfrage auf aktivieren geht, dann wird der schutz deaktiviert. da aber in dem tabellenblatt auch formel hinterlegt sind möchte ich diese sperren. mit dem Range("G1").Locked = True passiert aber gar nichts.
Hier mal der code, bitte kann mir jemand helfen... ich komm sonst echt nicht weiter...
Private Sub workbook_open()
ActiveWorkbook.Unprotect Password:="Holger" 'Arbeitsmappe entschützen
Sheets("Eingabemaske").Unprotect ("Holger") 'Tabellenblatt entschützen
For i = 8 To 21
For j = 65 To 71
zelle = Chr(j) + Trim(Str(i))
Range(zelle).Locked = True
Next j
Next i
Sheets("Eingabemaske").Protect ("Holger")

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Syntaktisch falsch...
30.12.2002 18:50:22
Ramses
Hallo,

Da ist ein grundsätzliches Problem:
Du kannst keine einzelnen Zellen sperren !!, zumindest nicht so.

Unter Format - Zellen - Schutz kannst du mit dem Häckchen einstellen ob diese Zelle geschützt wird ( Häckchen setzen !! ) oder nicht geschützt wird ( Häckchen entfernen ).
Dieser Schutz tritt aber nur ein, wenn das GANZE BLATT geschützt wird !!!

Wenn du also den Blattschutz entfernst, entfernst du auch gleichzeitig den Zellschutz :-(.

Die einzige Variante:
Dort wo der Benuzter Eingaben machen soll, das Häckchen entfernen und das Blatt schützen.
Bau dir eine leere Tabelle ein, aktiviere diese beim Schliessen der Arbeitsmappe als erste und setze den Arbeitsmappenschutz in Verbingung mit dem Fensteraufbau ein.
Dann kann bei einem falschen Passwort trotzdem niemand an die Arbeitsmappe ran.

Alternativ, etwas umständlich:
Ein Selection_Change Ereignis, wenn der Benutzer eine deiner Zellen auswählt wo er nicht hin soll, setz den Cursor auf eine andere Zellen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'C1 darf nicht gewählt werden
If Target.Address = "$C$1" Then
Range("B1").Select
End If
End Sub

Das ist aber obermühsam :-))

Gruss Rainer

Anzeige
Syntaktisch falsch...
30.12.2002 18:50:23
Ramses
Hallo,

Da ist ein grundsätzliches Problem:
Du kannst keine einzelnen Zellen sperren !!, zumindest nicht so.

Unter Format - Zellen - Schutz kannst du mit dem Häckchen einstellen ob diese Zelle geschützt wird ( Häckchen setzen !! ) oder nicht geschützt wird ( Häckchen entfernen ).
Dieser Schutz tritt aber nur ein, wenn das GANZE BLATT geschützt wird !!!

Wenn du also den Blattschutz entfernst, entfernst du auch gleichzeitig den Zellschutz :-(.

Die einzige Variante:
Dort wo der Benuzter Eingaben machen soll, das Häckchen entfernen und das Blatt schützen.
Bau dir eine leere Tabelle ein, aktiviere diese beim Schliessen der Arbeitsmappe als erste und setze den Arbeitsmappenschutz in Verbingung mit dem Fensteraufbau ein.
Dann kann bei einem falschen Passwort trotzdem niemand an die Arbeitsmappe ran.

Alternativ, etwas umständlich:
Ein Selection_Change Ereignis, wenn der Benutzer eine deiner Zellen auswählt wo er nicht hin soll, setz den Cursor auf eine andere Zellen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'C1 darf nicht gewählt werden
If Target.Address = "$C$1" Then
Range("B1").Select
End If
End Sub

Das ist aber obermühsam :-))

Gruss Rainer

Anzeige
Re: Syntaktisch falsch...
30.12.2002 20:13:16
Holger
Hallo Rainer,

vielen Dank für die ausführliche Antwort. Du hast mir damit wirklich weitergeholfen, jetzt weiß ich wie ich weitermachen kann

Gruss
und nen guten Rutsch...

Holger

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige