Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon little-key vom 05.05.2022, 18:46 Options
Blattschutz einer Spalte aufheben
Hallo,
habe mehrere Tabellenblätter, die Passwortgechützt sind.
Nun habe ich mir einen CommandButton gemacht, wo ein Mitarbeiter den Blattschutz aufheben kann.
Code:
Function Blattschutz_KW_aus()
Dim strPw As String
strPw = "passwort"
If InputBoxDK("Bitte Passwort eingeben...", "Passwortabfrage") <> strPw Then
MsgBox ("Falsches Passwort!")
Exit Sub
Else
ActiveSheet.Unprotect ("passwort")
End If
End Sub
Nun mein Problem:
Es soll nur bei einer Spalte (Spalte AG) der Schutz aufgehoben werden, der Rest soll geschützt bleiben.
Bitte Hilfe.
Gruß Mario
habe mehrere Tabellenblätter, die Passwortgechützt sind.
Nun habe ich mir einen CommandButton gemacht, wo ein Mitarbeiter den Blattschutz aufheben kann.
Code:
Function Blattschutz_KW_aus()
Dim strPw As String
strPw = "passwort"
If InputBoxDK("Bitte Passwort eingeben...", "Passwortabfrage") <> strPw Then
MsgBox ("Falsches Passwort!")
Exit Sub
Else
ActiveSheet.Unprotect ("passwort")
End If
End Sub
Nun mein Problem:
Es soll nur bei einer Spalte (Spalte AG) der Schutz aufgehoben werden, der Rest soll geschützt bleiben.
Bitte Hilfe.
Gruß Mario
Antwort 1 von little-key vom 05.05.2022, 18:49 Options
Ein Schreibfehler ist drin.
Es heißt natürlich Exit Function und End Function.
Es heißt natürlich Exit Function und End Function.
Antwort 2 von Hajo_Zi vom 05.05.2022, 19:11 Options
Hallo Mario,
ich sollte mich irren, aber per funktion kannst du kein Foramtierungen vornehmen.
Gruß Hajo
ich sollte mich irren, aber per funktion kannst du kein Foramtierungen vornehmen.
Gruß Hajo
Antwort 3 von little-key vom 05.05.2022, 19:14 Options
Hallo Hajo,
auch nicht über:
Private Sub CommandButton7_Click()
Blattschutz_KW_aus
End Sub
Über den Button wird doch die Function ausgeführt???
auch nicht über:
Private Sub CommandButton7_Click()
Blattschutz_KW_aus
End Sub
Über den Button wird doch die Function ausgeführt???
Antwort 4 von Hajo_Zi vom 05.05.2022, 19:25 Options
Hallo mario,
bleibt aber die Funktion. Warum schreibst Du den Code nicht unter den CommandButton oder einzelne Sub?
Gruß hajo
bleibt aber die Funktion. Warum schreibst Du den Code nicht unter den CommandButton oder einzelne Sub?
Gruß hajo
Antwort 5 von little-key vom 05.05.2022, 19:34 Options
Hallo Hajo,
Dann würde es wohl so aussehen:
Private Sub CommandButton7_Click()
Dim strPw As String
strPw = "passwort"
If InputBoxDK("Bitte Passwort eingeben...", "Passwortabfrage") <> strPw Then
MsgBox ("Falsches Passwort!")
Exit Sub
Else
ActiveSheet.Unprotect ("passwort")
End If
End Sub
Damit wird aber der gesamte Blattschutz aufgehoben, soll aber nur Spalte AG, besser Range("AG5:AG38"), sein.
Dann würde es wohl so aussehen:
Private Sub CommandButton7_Click()
Dim strPw As String
strPw = "passwort"
If InputBoxDK("Bitte Passwort eingeben...", "Passwortabfrage") <> strPw Then
MsgBox ("Falsches Passwort!")
Exit Sub
Else
ActiveSheet.Unprotect ("passwort")
End If
End Sub
Damit wird aber der gesamte Blattschutz aufgehoben, soll aber nur Spalte AG, besser Range("AG5:AG38"), sein.
Antwort 6 von Hajo_Zi vom 05.05.2022, 19:42 Options
Hallo Mario,
für eine Saplte aknnst du den nicht aufheben. Du kannst Eingaben in einer Spale zulassen, Zellen formatieren, Register Schutz, gesperrt entfernen.
Gruß Hajo
für eine Saplte aknnst du den nicht aufheben. Du kannst Eingaben in einer Spale zulassen, Zellen formatieren, Register Schutz, gesperrt entfernen.
Gruß Hajo
Antwort 7 von little-key vom 05.05.2022, 19:46 Options
Ich glaube ich hab´s.
Eigentlich wie Du es sagst:
Sub Blattschutz_KW_aus()
Dim strPw As String
strPw = "passwort"
If InputBoxDK("Bitte Passwort eingeben...", "Passwortabfrage") <> strPw Then
MsgBox ("Falsches Passwort!")
Exit Sub
Else
ActiveSheet.Unprotect ("passwort")
Range("AG5:AG38").Select
Selection.Locked = False
ActiveSheet.Protect ("passwort")
End If
End Sub
Danke Dir aber trotzdem Hajo, der Tipp war bestens.
Gruß Mario
Eigentlich wie Du es sagst:
Sub Blattschutz_KW_aus()
Dim strPw As String
strPw = "passwort"
If InputBoxDK("Bitte Passwort eingeben...", "Passwortabfrage") <> strPw Then
MsgBox ("Falsches Passwort!")
Exit Sub
Else
ActiveSheet.Unprotect ("passwort")
Range("AG5:AG38").Select
Selection.Locked = False
ActiveSheet.Protect ("passwort")
End If
End Sub
Danke Dir aber trotzdem Hajo, der Tipp war bestens.
Gruß Mario
Ähnliche Themen
Exel Blattschutz aufheben
buddybuddy 06.01.2009 - 306 Hits - 11 Antworten
Wie kann ich in eine Spalte die letzte Zahl suchen lassen und diese in die erste Spalte einfügen. Die Spalten werden immer fortgeschrieben.
Arrowano 23.11.2009 - 148 Hits - 2 Antworten
Wert Spalte A (zB Rauch) vergleichen mit Spalte B
NBrock 30.01.2010 - 193 Hits - 5 Antworten
Teilausdrücke von einer Spalte auslesen und in einer neuen Spalte einfügen
Ger 01.02.2010 - 130 Hits - 1 Antwort
Blattschutz
Jumpanino 09.03.2010 - 230 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
