wie kann ich mein Excel shett nur teilweise Schreibschützen

Question

Hallo

Ich habe folgendes Problem :

- ich habe mir ein Execel Sheet für meine Arbeit angefertigt dieses besteht aus 3 Seiten .
Seite 1

ist eine Übersicht mit drop down feldern und einigen Kommentarfeldern.


Seite 2 und 3

habe ich Photo cards erstellt jede Seite ist in 4 gleiche felder aufgeteielt.
in jedem Feld habe ich einen Bedienfeld (Bilder einfügen (das habe ich über die Makros gemacht) ) so das ich wenn ich diesen dieses Feld anklicke ich von jedem Platz auf dem Computer Bilder einfügen kann.
bis hierhin alles kein Problem und funktioniert auch wunderbar.
Jetzt zu meinem eigentlichen Problem .
da dieses Sheet in unserer Firma verwendet werden soll möchte ich es so schützen das nicht jeder oder keiner ohne mein wissen in dem sheet herrumschreiben kann.
wie mann ein Sheet Passwort und schreibschützt weiß ich habe diesen weg auch probiert und er sperrt mir auch die Photo Cards( auch wenn ich die Seite Markiere und bei format. Zelle den Hacken bei Locked herausnehme und unter Protect Sheet den Hacken nur bei select unlocked cells setzte. sperrt er mir die Photocard trotzdem.
meine versuche es zu schützen sind bisher fehlgeschlagen.
Recht herzlichen Dank im Vorraus

Der Blondehans193

Answer 1

Hallo Hans,

ja, so sollte es funktionieren.

mfGn
Oliver

Answer 2

Hallo Oliver

danke erstmal für deine hilfe jetzt bekomme ich folgende fehlermeldung

Run-time error'9':
Subscript out of range

Gruß Hans

Answer 3

Hallo Hans,

ohne dass ich Deine Datei sehe, werden wir noch bis zum nächsten Jahreswechsel an den Problemen rumgrübeln. Bitte lade Deine Datei mal bei http://www.file-upload.net/ hoch und teile uns den Link, den Du erhältst hier mit.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 4

Hallo Oliver

hier der link

http://www.file-upload.net/download-2221114/Tower_-Inspection-Form-Vers.01.xlsm.html

Gruß Hans

Answer 5

Hallo Hans,

schreibe in Deinem Makro anstelle

Sheet("2").Unprotect "maohaiyan193"

Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193". Hatte ich aber auch so in AW9 geschrieben.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 6

Hallo Oliver

danke für deine Hilfe habe meine Macros umgeschrieben und dieser Weg funktioniert , aber wenn ich das erste Bild in meinen Sheet eingefügt habe was auch ohne Probleme funktioniert ist das erste Blatt auch wieder völlig ungeschützt.
ich bin am verzweifeln aber trotzdem Danke Danke Danke :-)
vieleicht hast du auch einen Lösungsweg für dieses Problem

Vielen dank für deine Hilfe

Gruß Hans

Answer 7

Hallo Hans,

dann hast Du bei einem Click-Ereignis nicht mit

Sheets("Tower Inspection Mail Form").Protect "maohaiyan193"das Tabellenblatt wieder geschützt. Kontrolliere Deine VBA-Code dahingehend.
Ansonsten zeige uns den gesamten Code, wie er im Moment in Deiner Datei steht. Denn mit dem Hellsehen haben wir es alle hier nicht so.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 8

Hallo Oliver

hier der gesamte Code so habe ich ihn nach deiner letzten Antwort (AW 15)geändert würde mich über eine lösung riesig freuen .

Sub InsertPicture1_Click()
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
Range("B60").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 340
Selection.ShapeRange.Height = 285
Sheets("Tower Inspection Mail Form").Protect "maohaiyan193"
End Sub
Sub InsertPicture2_Click()
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
Range("U60").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 340
Selection.ShapeRange.Height = 285
Sheets("Tower Inspection Mail Form").Protect "maohaiyan193"
End Sub
Sub InsertPicture3_Click()
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
Range("B80").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 340
Selection.ShapeRange.Height = 285
Sheets("Tower Inspection Mail Form").Protect "maohaiyan193"
End Sub
Sub InsertPicture4_Click()
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
Range("U80").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 340
Selection.ShapeRange.Height = 285
Sheets("Tower Inspection Mail Form").Protect "maohaiyan193"
End Sub

Sub InsertPicture5_Click()
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
Range("B105").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 340
Selection.ShapeRange.Height = 285
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
End Sub
Sub InsertPicture6_Click()
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
Range("U105").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 340
Selection.ShapeRange.Height = 285
Sheets("Tower Inspection Mail Form").Protect "maohaiyan193"
End Sub
Sub InsertPicture7_Click()
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
Range("B125").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 340
Selection.ShapeRange.Height = 285
Sheets("Tower Inspection Mail Form").Protect "maohaiyan193"
End Sub
Sub InsertPicture8_Click()
Sheets("Tower Inspection Mail Form").Unprotect "maohaiyan193"
Range("U125").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 340
Selection.ShapeRange.Height = 285
Sheets("Tower Inspection Mail Form").Protect "maohaiyan193"
End Sub

Gruß Hans

Answer 9

Hallo Hans,

bei mir funktionieren Deine Makros wie gewünscht. Füge ich ein Bild ein, sind Änderungen auf Seite 1 nicht möglich.

Wenn es bei Dir nicht funktioniert, dann beschreib mal Schritt für Schritt, was Du machst, damit man das an Deiner Beispieldatei mal nachstellen kann.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 10

Hallo Oliver

das ist schön zu hören das es bei dir Funktioniert :-)

so dann will ich mal beschreiben was ich mache.
Schritt 1
-markiere links oben meinen Excel Sheet (alles hellblau hinterlegt)
-danach rechte Maustaste und auf Format Cells>Protection>Hacken bei Locked> ok
Schritt 2
-markiere mir all die Felder in die später was eingetragen werden soll (seite 1)oder die drop down genutz weden können.Seite 2 und 3 markiere ich jeweils das Feld mit Insert Picture und wo das Feld wo das Bild mal Hinein soll. Danach wie bei schritt 1 rechte Maustaste Format Cells >Hacken löschen bei Protection > ok
Schritt 3
-gehe ich auf protect Sheet setze eine Hacken bei select unlocked cells > mein passwort >ok > passwort wiederholen >ok alles speichern
danach öffne ich das Excel sheet vesuche etwas zu veraendern auf Seite 1 ist nicht moeglich
gehe auf seite 2 fuege ein Bild ein ist auch ok danach zurueck auf seite 1 und ich kann in jeder spalte und ueberall Veraenderungen vornehmen.