MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 19.02.2008, 10:20   #1
Tayler
MOF User
MOF User
Standard VBA - Problem mit Blattschutz

Code:

sub Blattschutz()
    ActiveSheet.Unprotect Password:="Kennwort"
    ActiveSheet.Range(Cells(6, 1), Cells(6, 8)).Locked = True
    ActiveSheet.Range(Cells(12, 1), Cells(loLetzte, 15)).Locked = True
    ActiveSheet.Protect Password:="Kennwort"
    ActiveWorkbook.Save
end sub()
Wenn ich nun die Datei wieder öffnen, dann ist zwar der Blattschutz aktiviert, aber die gesperrten Zellen kann man verändern. Wenn ich nun den Blattschutz über Extras-Schutz aufhebe und wieder aktiviere funktioniert es.

Kann mir jemand sagen woran es liegt?

Gruß

Tayler
Tayler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 10:25   #2
jinx
MOF Guru
MOF Guru
Standard

Moin, Tayler,

auch den Code angeben. der in anderen Modulen bzw. Klassenmodulen steht - loLetzte ist nicht belegt, ansonsten tritt das Verhalten bei Verwendung des Codes bei mir unter Excel2002 nicht auf...

__________________

cu
jinx


per 31.12.2010 ausgeschiedener User und ehemaliger Excel-

Folgende Tools werden zur optischen Aufbereitung eingesetzt: <a *****"http://www.ms-office-forum.net/forum/codeconverter.php" target="_blank">Code Converter</a>; <a *****"http://www.haserodt.de/ejh_do/ex_jean_info.htm" target="_blank">Excel Jeanie Html</a>
Für die allgemeinen Hinweise: <a *****"http://www.ms-office-forum.net/forum/netiquette.php" target="_blank">Netiquette</a>; <a *****"http://www.excel-vba.de/frageninforen.htm" target="_blank">Fragen und Antworten in Foren</a>

eingesetzte Betriebssysteme: XP Home, XP Media Center Edition, XP Professional, Vista Ultimate, 7/Seven
verwendete Programme: Excel97 SR-2, Office 2000 SP-3, Office2002/XP SP-3, Office 2003 Professional SP-3, Office 2007 Home & Student SP-3, Office 2007 Professional SP-3
jinx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 10:29   #3
Tayler
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo jinx.
Hier der komplette Code:
Code:

sub Blattschutz()
    loLetzte = Sheets("Bestellformular").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Bestellformular").Unprotect Password:="AVQSMarco"
    Sheets("Bestellformular").Range(Cells(6, 1), Cells(6, 8)).Locked = True
    Sheets("Bestellformular").Range(Cells(12, 1), Cells(loLetzte, 15)).Locked = True
    Sheets("Bestellformular").Protect Password:="AVQSMarco"
    ActiveWorkbook.Save
end sub
Tayler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 10:37   #4
jinx
MOF Guru
MOF Guru
Standard

Moin, Taylor,

kann ich auch mit dem veränderten Code nicht unter 2002/XP nachvollziehen - siehe Anhang (tritt der Fehler dort auch auf?).
Angehängte Dateien
Dateityp: xls MSOF227053.xls (22,0 KB, 10x aufgerufen)

__________________

cu
jinx


per 31.12.2010 ausgeschiedener User und ehemaliger Excel-

Folgende Tools werden zur optischen Aufbereitung eingesetzt: <a *****"http://www.ms-office-forum.net/forum/codeconverter.php" target="_blank">Code Converter</a>; <a *****"http://www.haserodt.de/ejh_do/ex_jean_info.htm" target="_blank">Excel Jeanie Html</a>
Für die allgemeinen Hinweise: <a *****"http://www.ms-office-forum.net/forum/netiquette.php" target="_blank">Netiquette</a>; <a *****"http://www.excel-vba.de/frageninforen.htm" target="_blank">Fragen und Antworten in Foren</a>

eingesetzte Betriebssysteme: XP Home, XP Media Center Edition, XP Professional, Vista Ultimate, 7/Seven
verwendete Programme: Excel97 SR-2, Office 2000 SP-3, Office2002/XP SP-3, Office 2003 Professional SP-3, Office 2007 Home & Student SP-3, Office 2007 Professional SP-3
jinx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 10:44   #5
Tayler
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo jinx.
Bei dieser Datei tritt der gleich Fehler auf wie bei meiner.

Gruß

Tayler
Tayler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 10:53   #6
jinx
MOF Guru
MOF Guru
Standard

Moin, Taylor,

mal abgesehen von der Falle mit dem Fehlen des Aufhebens des Blattschutzes (war unbeabsichtigt von meiner Seite, ich bitte um Entschuldigung) - magst Du mir bitte sagen, welches Betriebssystem, welche Version und welches ServicePack Du verwendest? Dann müsste ich ggf. dazu mal meinen Server "quälen"...

__________________

cu
jinx


per 31.12.2010 ausgeschiedener User und ehemaliger Excel-

Folgende Tools werden zur optischen Aufbereitung eingesetzt: <a *****"http://www.ms-office-forum.net/forum/codeconverter.php" target="_blank">Code Converter</a>; <a *****"http://www.haserodt.de/ejh_do/ex_jean_info.htm" target="_blank">Excel Jeanie Html</a>
Für die allgemeinen Hinweise: <a *****"http://www.ms-office-forum.net/forum/netiquette.php" target="_blank">Netiquette</a>; <a *****"http://www.excel-vba.de/frageninforen.htm" target="_blank">Fragen und Antworten in Foren</a>

eingesetzte Betriebssysteme: XP Home, XP Media Center Edition, XP Professional, Vista Ultimate, 7/Seven
verwendete Programme: Excel97 SR-2, Office 2000 SP-3, Office2002/XP SP-3, Office 2003 Professional SP-3, Office 2007 Home & Student SP-3, Office 2007 Professional SP-3
jinx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 10:56   #7
Tayler
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo jinx.
Benutze folgen Excel-Version und Betriebsystem:
Excel-Version: 2002 mit SP2, Betriebsystem: Windows XP mit SP2

Gruß

Tayler
Tayler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 11:07   #8
jinx
MOF Guru
MOF Guru
Standard

Moin, Tayler (diesmal explizit mit e),

bei mir läuft XP Professional Sp-2 und Excel 2002/XP mit dem SP3 - aber den von Dir beschriebenen Fehler kann ich nicht nachvollziehen.

In der Beispielmappe sollte über das Workbook_Open-Ereignis der Code erneut ausgeführt werden. Wenn dies nicht passiert, kann ich nur noch das Worksheet_Activate-Ereignis vorschlagen: eine andere Tabelle beim Öffnen als aktive angeben, um beim Wechsel auf die Tabelle den Code ausführen zu lassen. Dies klärt zwar nicht, warum eine Änderung in geschützten Zellen möglich ist, würde aber diese Möglichkeit verhindern.

Wie gesagt: ich habe keine Vorstellung, woran es wegen des Aufhebens liegen könnte (außer dem allgemeinen Vorschlag: Hast Du schon mal den Rechner neu gestartet?).

__________________

cu
jinx


per 31.12.2010 ausgeschiedener User und ehemaliger Excel-

Folgende Tools werden zur optischen Aufbereitung eingesetzt: <a *****"http://www.ms-office-forum.net/forum/codeconverter.php" target="_blank">Code Converter</a>; <a *****"http://www.haserodt.de/ejh_do/ex_jean_info.htm" target="_blank">Excel Jeanie Html</a>
Für die allgemeinen Hinweise: <a *****"http://www.ms-office-forum.net/forum/netiquette.php" target="_blank">Netiquette</a>; <a *****"http://www.excel-vba.de/frageninforen.htm" target="_blank">Fragen und Antworten in Foren</a>

eingesetzte Betriebssysteme: XP Home, XP Media Center Edition, XP Professional, Vista Ultimate, 7/Seven
verwendete Programme: Excel97 SR-2, Office 2000 SP-3, Office2002/XP SP-3, Office 2003 Professional SP-3, Office 2007 Home & Student SP-3, Office 2007 Professional SP-3
jinx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 11:15   #9
Tayler
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo jinx.
Habe den Rechner gerade neu gestartet. Habe das Modul auch mal so ausgefürht, aber der Effekt bleibt leider. Kann mir auch nicht erklären woran es liegt. Wenn ich es von Hand mache, funktioniert es. Kann sein das irgendein Add-In bei mir fehlt?

Gruß

Tayler
Tayler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 11:29   #10
Sturmovik
MOF User
MOF User
Standard

Moin

Mal ein anderer Ansatz:
Heb den Blattschutz auf und setze ihn unter extras->Schutz neu

Vielleicht stimmt dort eine Einstellung nicht, denn bisher hab ich die Erfahrung gemacht, daß beim Schützen per Code diese Einstellungen genommen werden, wenn nichts explizit angegeben ist.

mfg Sturmovik
Sturmovik ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 12:18   #11
Tayler
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Sturmovik.
Wenn ich es per Hand machen funktioniert ja auch.

Gruß

Tayler
Tayler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 12:27   #12
chris-kaiser
MOF Guru
MOF Guru
Standard

hiho

versuche es einmal so

Code:

Option Explicit

Sub Blattschutz()
Dim loLetzte
'loLetzte = 16
With Sheets("Bestellformular")
 .Protect Userinterfaceonly:=True, Password:="Kennwort"
  loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
  .Range(Cells(6, 1), Cells(6, 8)).Locked = True
  .Range(Cells(12, 1), Cells(loLetzte, 15)).Locked = True

End With
ActiveWorkbook.Save
End Sub

__________________

Gruß Chris

Feedback nicht vergessen,
p.s Bitte keine PN (persönliche Nachrichten) mit Aufgabenstellungen schicken, Probleme sollten im Forum gelöst werden!
3a2920576572206973742064656e20646120736f206e65756769657269672e
chris-kaiser ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 12:44   #13
Tayler
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo chris-kaiser.
Danke für die Hilfe. Leider tritt der Fehler immer noch auf. Solange ich die Datei nicht abspeichere funktioniert es. Wenn ich die Datei abspeichere, schließe und wieder öffne, dann tritt der Fehler auf.

Gruß

Tayler

Geändert von Tayler (19.02.2008 um 12:47 Uhr).
Tayler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 12:47   #14
chris-kaiser
MOF Guru
MOF Guru
Standard

hi

welcher Fehler?
was für eine Meldung kommt?

hast Du verbundene Zellen?

__________________

Gruß Chris

Feedback nicht vergessen,
p.s Bitte keine PN (persönliche Nachrichten) mit Aufgabenstellungen schicken, Probleme sollten im Forum gelöst werden!
3a2920576572206973742064656e20646120736f206e65756769657269672e
chris-kaiser ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2008, 12:50   #15
Tayler
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo chris-kaiser.
Es kommt keine Fehlermeldung.
Fehler: Blattschutz ist aktiviert, aber die Zellen sind nicht gesperrt.

Gruß

Tayler
Tayler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:33 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.