Bladkleur wijzigen (alles wat niet gebruikt wordt) + blad beveiligen

[CarolienL]

Hallo,

Ik heb een tweetal vraagjes over mijn excel-werkblad.
Eerst even uitleg wat ik gemaakt heb:
In blad 2 staat een hele lijst met allerlei onderdelen die men kan bestellen. Men hoeft hier alleen maar een bestelhoeveelheid in te geven. Daarna klikken ze op de knop 'maak'. Door op deze knop te klikken gaat er een macro draaien die op blad 1 alleen de regels laat zien die ook daadwerkelijk besteld zijn. (in een bepaalde lay-out natuurlijk) De rest valt dus weg.
Op blad 1 kan men nog vanalles invullen betreffende hun bestelling.

Nu wil ik graag aan de zijkanten van mijn bladen alle regels / kolommen grijs maken die niet gebruikt worden.
Ik weet alleen niet hoe ik dit voor elkaar krijg!

En ik wil graag mijn werkbladen beveiligen met een wachtwoord zodat niet iedereen hierin kan sleutelen.
Echter, als ik de cellen selecteer die ik beveiligd wil hebben, een wachtwoord opgeef, werkt dit niet goed.
Als ik dan weer het blad open en ik wil dat testen krijg ik iedere keer de melding dat het een 'alleen-lezen bestand' is...

Hoe kan ik dit oplossen?
en blijven de macro's dan nog gewoon werken?

Samengevat:
- Grijze regels / kolommen in nietgebruikte velden
- Cellen beveiligen met een wachtwoord

Ik hoop dat iemand mij hierbij kan helpen!

Alvast bedankt!

Carolien

 

[marcobroek]

Vraag 1:
Niet gebruikte cellen grijs maken:
Selecteer je hele tabblad.(ctrl+a)
Zet de celkleur op grijs.
Selecteer de cellen die je wel wil gebruiken en zet de celkleur op geen opvulling.

Vraag 2:
Selecteer cellen die bewerkt mogen worden.
Terwijl deze zijn geselecteerd rechtermuisknop op een van deze cellen.
Ga naar celeigenschappen->Bescherming en zorg ervoor dat geblokkeerd niet aangevinkt staat.

Beveilig hierna het tabblad zoals je dit eerst deed.

Ik hoop dat dit helpt.

 

[CarolienL]

Bedankt!!!

Het werkt!
Super!

 

[CarolienL]

Sorry, de vraag is toch nog niet opgelost....

Als ik mijn macro uit tabblad 2 laat draaien waardoor ik alleen de bestelde regels in tabblad 1 wil laten zien kan dit niet.
Hij zegt namelijk dat alles een 'alleen-lezen bestand' is.

De bedoeling is namelijk dat er gegvens uit tabbla 2 meegekopieerd worden.

Wanneer ik in tabblad 1 alle regels 'geblokkeerd' uitvink, kan ik wel alles exporteren naar dat tabblad, maar dan zijn ook de teksten aan te passen.
Dit moet natuurlijk niet..

Kan iemand mij helpen?

 

[Warme bakkertje]

Zet deze in ThisWorkBook, sla op, sluit af en heropen je bestand. Hierdoor blijft je blad beveiligd maar wordt macro's draaien toegelaten

Private Sub Workbook_Open()
    Sheets("Naam van je blad").Protect Password:="jouw wachtwoord", UserInterfaceOnly:=True
End Sub

 

[CarolienL]

Hoi Rudi,

Ik heb het geprobeerd, maar ik weet niet precies waar ik het in moet plakken.
Ik snap in welke macro ik het moet plakken, maar moet ik de naam van het gehele bestand daar invullen of moet ik de naam van het werkblad invullen?
(als ik de naam van het werkblad moet invullen, moet ik dan 2x die regel erin plakken en dus 2x een wekbladnaam opgeven?)

Ik heb het nu namelijk 1x in mijn werkbladmacro geplakt en de naam van het gehele bestand gegeven.
Nu krijg ik weer dezelfde foutmelding als voorheen....

 

[Warme bakkertje]

Zet deze in ThisWorkBook

Private Sub Workbook_Open()
For Each sh In Sheets
    Sheets(sh.Name).Protect Password:="jouw wachtwoord hier", UserInterfaceOnly:=True
Next
End Sub

 

[CarolienL]

Hoi,

Het lukt me niet om het voor elkaar te krijgen.
Als ik je het bestand mail, wil jij er dan een blik op werpen?

 

[marcobroek]

Ik denk dat Rudi dit bedoeld:

Ga naar het tabblad ontwikkelaars.
Klik op programmacode weergeven.
In het linkermenu zie je een lijst met je tabbladen staan.
onderaan staat Thisworkbook.
Dubbelklik hierop en vul hier de code in.
Wanneer je de code hebt ingevuld kun je het venster (van microsoft visual basics) weer sluiten.

Wat jij denk ik verkeerd hebt gedaan is dat je de code van je macro hebt aangepast i.p.v. de code van je worbook/document.

 

[CarolienL]

Het kan aan mij liggen, maar dit is nog steeds abracadabra voor mij...

Sub Workbook_Open()
Sheets("Bestelformulier Expeditie - Hulpstoffen").Protect Password:="bestelcarolien", UserInterfaceOnly:=True
On Error GoTo EndMail
Set cdoConfig = CreateObject("CDO.Configuration")
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.cablewanadoo.nl"
cdoConfig.Fields.Update
Set cdoMessage = CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.To = "MijnMailAd...@Wanadoo.nl"
cdoMessage.Subject = Application.UserName & " werkt momenteel met: 'Table "
Technology.xls '"
cdoMessage.Send
EndMail:
End Sub


Het rode gedeelte heb ik erin geplakt, maar nu werkt het niet meer..

Heeft iemand een idee wat er fout gaat en hoe ik dit kan verbeteren?

 

[Hoornvan]

En zo?

Sub Workbook_Open()
  For Each sh In Sheets
    Sheets(sh.Name).Protect Password:="jouw wachtwoord hier", UserInterfaceOnly:=True
  Next
On Error GoTo EndMail
Set cdoConfig = CreateObject("CDO.Configuration")
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.cablewanadoo.nl"
cdoConfig.Fields.Update
Set cdoMessage = CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.To = "MijnMailAd...@Wanadoo.nl"
cdoMessage.Subject = Application.UserName & " werkt momenteel met: 'Table "
Technology.xls '"
cdoMessage.Send
EndMail:
End Sub

Je moet de volgende keer de code selecteren en dan boven in het menu op # klikken, komt het netjes in een vak te staan.

 

[CarolienL]

Hallo,

dien ik dan de naam van mijn gehele bestand in te vullen of alleen van het werkblad?
dan moet ik toch meerdere van die regels maken of niet?

Ik heb nu namelijk de gehele naam van mijn bestand ingevuld '....... .xls', maar nu krijg ik nog steeds de foutmelding...

 

[Hoornvan]

Zo te zien de BladNaam.

 

[CarolienL]

Hierbij het bestand.
Ik kom er namelijk echt niet uit....

De bedoeling is in tabblad 2 in kolom A het aantal wordt ingevuld van hetgeen je wilt bestellen.
Daarna druk je op de knop 'maken'.
Hierna wordt tabblad 1 gevuld met de bestelde artikelen.
Men hoeft nu alleen nog maar de leverdatum en evt bijzonderheden in te vullen.
Door daarna 'bestelling verzenden' aan te klikken wordt het bestand verzonden naar mijn email.

Ik wil graag alles beveiligen waar men niet aan heoft te komen.
tabblad 2: alles behalve kolom A en de 2 knoppen
tabblad 1: alles behalve leverdatum, bijzonderheden en opmerkingen.

Mij lukt het niet om het dan nog werkend te krijgen... snik snik snik

 

[Hoornvan]

Hier is je file.
Heb je de E-mail ontvangen?

 

[trucker10]

Der heel vlug overgegaan
@ Wim , je tabbald " Bestellijst " ? is vrij in te vullen .
@ CarolienL , lees eens wat Rudi " warme bakkertje " schreef ThisWorkBook is niet in een module

 

[Hoornvan]

trucker10
Der heel vlug overgegaan
@ Wim , je tabbald " Bestellijst " ? is vrij in te vullen .

Dat zijn 2 kolommen en volgens mij de bedoeling.

Hier is de file nogmaals met het stukje code van warme bakkertje.

 

[CarolienL]

WAAW!!!!!!!

het werkt!!!
kei bedankt allemaal!