kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: kopieren von: jens
Geschrieben am: 06.04.2005 20:23:20

hallo nocheimal

wäre es auch möglich zu meinen beitrag von eben rote zeilen erst nach Passwort eingabe zu kopieren?
danke und gruß jens

Bild


Betrifft: AW: kopieren von: Willi
Geschrieben am: 06.04.2005 21:11:54

Hallo Jens

Kommt drauf an, wie stark der Schutz durch das Passwort sein soll. Vermutlich reicht die Lösung mit einer Inputbox ("Mein Passwort" ist das Passwort das eingegeben werden muss, aber ohne ""):


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngZelle As Range
Dim strPasswort As String
For Each rngZelle In Selection
    If rngZelle.Interior.ColorIndex = 3 Then
        strPasswort = InputBox("Rote Zeilen dürfen nur mit Passwort kopiert werden")
        If strPasswort = "Mein Passwort" Then
            Exit Sub
        Else
            MsgBox "Rote Zeilen dürfen nicht kopiert werden"
            Range("A1").Select
            Exit For
        End If
    End If
Next
End Sub


Gruss
Willi


Bild


Betrifft: AW: kopieren von: jens
Geschrieben am: 06.04.2005 21:41:00

Danke danke

du hast mir sehr geholfen

jens


 Bild

Beiträge aus den Excel-Beispielen zum Thema "kopieren"