Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Code beveiliging  (gelezen 2353 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Code beveiliging
« Gepost op: 25 maart 2017, 11:39:24 »
Hallo mensen,

Ben hier nog eens met een, voor sommigen, klein probleem, alleen ik vindt geen uitkomst.

Bij Pitufo z'n laatste file voor mij heb ik een kleine code bijgevoegd om het beveiligde blad te kopiëren zonder dat ik zelf de beveiliging moet uitzetten.

Dit gaat perfect en het nieuwe blad is ook beveiligd, maar het originele blad is niet meer beveiligd, en daar vind ik geen oplossing voor dat óók dit blad weer beveiligd is, met dezelfde code.

Met dank bij voorbaat,

Grts,
Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Code beveiliging
« Reactie #1 Gepost op: 25 maart 2017, 14:26:32 »
Dag Jean-Pierre,

Als je de volgorde van je instructies zo wijzigt zou het in orde moeten zijn :
Sub jaar_toevoegen()
jaar = Val(Sheets(1).Name)
Sheets(1).Copy Before:=Sheets(1)
ActiveSheet.Unprotect
ActiveSheet.Name = jaar + 1
Cells(1, 6) = jaar + 1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Dan doe je enkel iets met de beveiliging op de kopie; deze op het gekopieerde werkblad mag namelijk ongemoeid gelaten worden.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Code beveiliging
« Reactie #2 Gepost op: 25 maart 2017, 18:24:20 »
Dank u Pitufo, ik was even afwezig  :-[, maar heb het geprobeerd en het lukt  ::).

Grts en nog een prettig w-end,
JP.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Code beveiliging
« Reactie #3 Gepost op: 26 maart 2017, 15:05:04 »
Beter is om gebruik te leren maken van de opdracht "UserinterfaceOnly:=True" bij Worksheet.Protect. Maak deze instructie bij het Workbook.Open event en laat het gelden voor alle sheets die beveiligd moeten zijn voor de gebruiker maar NIET voor je VBA-procedures. Hiermee voorkom je dit soort problemen én het heen en weer moeten schakelen tussen wel en niet beveiligd.
______________________________

Groet, Leo

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Code beveiliging
« Reactie #4 Gepost op: 27 maart 2017, 08:45:46 »
Goede morgen Leo,

Sorry voor de late reactie maar was gisteren namiddag niet thuis, en dadelijk weer op schok.....  :-[

Ik ben hier niet zo'n specialist in maar waar moet dit code van jou staan?  :'(

En beschermd deze dan ook mijn cellen met formules tegen wissen want dat is de hoofdreden van mijn protectie.

En ik had ondervonden dat wanneer ik een Tabblad wou kopiëren dat beveiligd was, ik een foutmelding kreeg en met de oplossing van Pitufo is dit ook opgelost.  ;)

Grts,
Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Code beveiliging
« Reactie #5 Gepost op: 27 maart 2017, 09:49:32 »
JeanPierre, Ik zal het vanavond ff voor je toevoegen. En ja hoor, alles blijft dan beveiligd. Het mooie van die opdracht is namelijk dat de code alles mag wat een gebruiker niet mag. Je hoeft hiermee dus geen beveiligingen meer op te heffen en na afloop te plaatsen.
De methode van Pitufo werkt (prima zelfs), maar je kan altijd opschalen in techniek...  ;-)
______________________________

Groet, Leo

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Code beveiliging
« Reactie #6 Gepost op: 27 maart 2017, 10:47:12 »
Hallo RedHead,
Gek eigenlijk dat ik daar niet aan gedacht had, want op mijn werk is een pakketje bestanden in omloop dat ik op die manier heb opgebouwd (heb blijkbaar de vraag van JeanPierre nogal letterlijk beantwoord...)
Alleen maar om te zeggen (en JeanPierre ervan te overtuigen  ;) ) dat jouw oplossing inderdaad de voorkeur moet krijgen!
Grts,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

 


www.combell.com