openen spreadsheet met beveiliging

[johndirk]

hi
ik heb een spreadsheet met beveiliging gemaakt met password.
nu ik wil van andere spreadsheet automatisch kopij en plakken in de spreadsheet met beveiliging.

Sub Zichtbaar()
'Ctrl+s
Dim i As Long, paswoord As String
Application.ScreenUpdating = False
paswoord = InputBox("Geef het paswoord in.", "Paswoord verificatie")
If paswoord = "jouwpaswoord" Then
For i = 2 To 15
Sheets("Blad" & i).Visible = True
Next i
Else: MsgBox "Het ingevoerde paswoord is verkeerd."
End If
Range("A1").Select
Application.ScreenUpdating = True
['blad1'!A2:F23].Copy
['Blad3'!A60000].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
[A1]
[B6:B8] = ""
[F6] = ""
[B12:F16] = ""
[D23] = ""
[A4] = [A4] + 1
Sheets("blad3").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("blad 1").Select

End Sub

 

[Hoornvan]

johndirk,

Je kunt toch in de macro zetten dat hij het password er even afhaald en als de copy er op staat er weer opzetten?
De volgende keer moet je de code selecteren en boven op het icoontje # klikken, dan komt de code in een apart veld te staan.

 

[johndirk]

mijn spreadsheet is passwoord beveiligd

bedankt voor uw snelle reactie

omdat de mensen verwijderen mijn bestanden.
ik heb een spreadsheet met password gemaakt.
mijn plan de resultaat van mijn werk op de beveilig spreadsheet schrijven.

 

[Hoornvan]

johndirk,

omdat de mensen verwijderen mijn bestanden.
ik heb een spreadsheet met password gemaakt.
mijn plan de resultaat van mijn werk op de beveilig spreadsheet schrijven.

Je weet misschien ook wel dat je password er binnen 30 sec. af is?
Dus eigenlijk heeft beveiligen niet veel zin, misschien dat het in Office 2010 beter geregeld is.

Ook beveiligde bestanden kun je verwijderen.

 

[johndirk]

bedankt voor jou reactie

ik heb een tijdelijke bestand in excel gemaakt.(om gebruik maken voor 3 maanden)
ik wil de resultaat van mijn tijdelijke opdrachten opslaan in een beveiligd map die heb ik gemaakt.

mijn plan is op korte termijn opdrachten opslaan.
kan ik op een beveiligd excel bestand opslaan gebruik maken van vba?

 

[johndirk]

office 2003

zij hebben geen office 2010!!
wij werken met office 2003

 

[Wigi]

Gebruik bij de Protect methode het argument UserInterfaceOnly en zet dit op True bij het opslaan. Google op deze termen en je gaat zeer veel uitleg vinden.

 

[johndirk]

problem

ik heb een probleem dat ik werk met netwerk dus moet ik mijn werk delen
ik wil mijn resultaten opslaan op een beveiligd spreadsheet
dus ik kan niet de werkmap beveiligen in excel.
Ik wil mijn 3 maanden opdrachten opslaan op beveiligd excel file.
kan dit ?

 

[johndirk]

bewaren mijn excel resultaten op beveiligd spreadsheet

Ik wil op een beveiligd spreadsheet mijn werk opslaan.
ik weet het mijn passwoord is bekend in de macro.
de mensen die werken op de netwerk ze weten niet over macro's
dus zij kunnen nooit mijn passwoord vinden.

 

[johndirk]

opgelost

ik moest opslaan als doen + passwoord.
ik weet het
bedankt voor snelle reacties en jullie begrip

veel dank