| | Post: 36 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
  05/05/2018 10:44 | |
Buon giorno,
mi capita una cosa che definire strana, a mio avviso, è poco.
Ho creato un foglio protetto in una parte e libero in un'altra parte, la password la conosco solo io.
Questo foglio è inserito in una cartella condivisa sul server aziendale e capita sovente che la parte libera diventi in "autonomia" protetta non so come.
Le prive volte mi convincevo che fosse sfrutto della mia sbadataggine e che dalle celle libere non avevo tolto la protezione ma adesso dopo due mesi di questa vita capisco che si tratta di una magiaaaa.
Ogni volta che capita questo io rifaccio sempre lo stesso procedimento, sproteggo il foglio evidenzio le celle che devono essere libere, tolgo la protezione che si inserisce non so come, salvo e riproteggo il foglio.
Per un paio di giorni funzione ma poi d'accapo.
C'è qualcuno di voi che saprebbe spiegarmi, per piacere, perchè avviene questo e soprattutto capire cosa fare affinchè non si verifichi più?
Grazie in anticipo a tutti coloro che vorranno darmi il loro parere.
Buona giornata |
|
| | Post: 3.411 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 05/05/2018 12:07 | |
Non lo sò...
1) File con macro (VBA)?
2) Se fai prove sul Tuo PC (non sul server) accade lo stesso?
Ps. Poi quel file, gli operatori lo devono solo visualizzare? Oppure devono scriverci. Non l'ho mai fatto realmente, mà esiste un VBA che "sdoppia" il file ed permette all'operatore X di modificare una/più colonne, l'altro operatore può modificare solo altre colonne (sicuramente un VBA complesso, anche per me) [Modificato da raffaele1953 05/05/2018 12:48] Excel 2013 |
| | Post: 2.885 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 05/05/2018 12:20 | |
Buona giornata, Aliele; dopo aver preso buona nota dei suggerimenti di @raffaele1953, che saluto, valuta anche le considerazioni sotto riportate. Quello a cui posso pensare è che ci sia qualche Collega "burlone" che riesce ad entrare nel Foglio di lavoro protetto, questo non è poi così complicato, e modifica la selezione delle Celle protette/sprotette. Non saprei cosa proporti se non: - Cambia la tua Password - Se nel File ci sono Codici VBA, proteggi con altra Password il Codice VBA Nel caso in cui la cosa si ripetesse è possibile gestire un Foglio di lavoro "nascosto con visualizzazione protetta da password", o meglio un File esterno, nel quale, in automatico, gestire gli accessi al File; in questo modo vedresti chi e quando ha effettuato l'accesso al File in questione. Nel peggiore dei casi allega il File, senza dati sensibili, con l'indicazione della Password che utilizzi, possiamo sempre ridefinire e proteggere/sproteggere il Range delle Celle prima di ogni salvataggio. A disposizione. Buon fine settimana. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 36 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 05/05/2018 18:35 | |
Grazie ragazzi,
il file è editabile, e chi ci lavora è una ragazza che manco conosce le basi di excel. E', pertanto, da escludere l'ipotesi del collega burlone.
Si il foglio, creato da Giuseppe, ha dei codici VBA. La soluzione sarebbe togliere la protezione ma temo troppo che la collega in maniera involontaria possa combinare guai.
Il foglio salvato in remoto non ha di questi problemi.
![[SM=x423054]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0034.gif) [Modificato da aliele. 05/05/2018 18:36] |
| | Post: 3.415 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 05/05/2018 19:51 | |
Se l'ha ha fatto GiuseppeMN, nulla da ridire
Secondo me il Server (....fammi vedere il file senza dati sensibili + password cambiata)
>>>La soluzione sarebbe togliere la protezione..........???
Qui interviene il VBA ed riprotegge (secondo me una zappa sui piedi, chiudi questo ed apri altri mondi) Excel 2013 |
| | Post: 37 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 05/05/2018 21:07 | |
Raffaele perdona ma non ho capito. Vuoi che posto il file senza dati sensibili e senza password?
Ho compreso bene?
|
| | Post: 3.417 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 05/05/2018 21:12 | |
Si
Tu hai scritto >>>La soluzione sarebbe togliere la protezione....???
Vediamo, per me sarà una zappa sui piedi Excel 2013 |
| | Post: 38 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 06/05/2018 08:58 | |
Buon giorno a tutti.
Concordo con te Raffaele quando dici che togliere la psw sarebbe darsi la zappa sui piedi ed è il motivo per il quale mi sto rivolgendo al forum.
La situazione sta diventando, però, antipatica perchè per il momento l'ho sempre risolta io che sono reperibile ma se mi dovessi assentare nessuno è in grado di sistemare perchè oltre a non sapere la psw non saprebbe come risolvere il problema.
Posto il file protetto per invitarvi a vedere cosa succede dalla riga 60 in poi (che sono le righe che devono rimanere libere da protezione) cosa succede giorno 8 e cosa giorno 9. Tieni presente che ieri il problema si presentava su giorno 8, ho modificato il tutto, controllato anche fino al 15 maggio ed era tutto ok, questa mattina il foglio di giorno 9 dice che dalla riga 60 è protetto e questo non consente di incollare dei dati FONDAMENTALI per l'utilizzo del foglio stesso.
La psw posso anche dirla è "avia2018"
Vi ringrazio e rimango in attesa di vostre risolutive notizie. |
| | Post: 3.418 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 06/05/2018 10:44 | |
Secondo me il Server e come detto da GiuseppeMN (proviamo la strada di fare "il tutto" quando si chiude il file)
Adesso mi ricordo (centinaia di fogli), prova a fare...
Avvia il registratore, e fai la Tua procedura che ripeti ultimamente
Togli passw
seleziona le celle da bloccare
rimetti passw
Ferma il registratore e sposta la macro nel forum [Modificato da raffaele1953 06/05/2018 10:52] Excel 2013 |
| | Post: 39 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 06/05/2018 11:00 | |
Raffaele ho fatto tutto come mi hai consigliato ma funziona a metà.
Mi spiego.
Ecco i passi che ho seguito
1) avvio registrazione macro, ho assegnato i tasti CTRL+MAIUSCOLO+S
ho iniziato la registrazione in questo modo:
2) ho tolto la protezione del foglio
3) ho selezionato le celle
4) ho tolto la protezione
5) ho rimesso la psw
6) ho salvato
a questo punto ho interrotto la registrazione della macro.
Appena avviata, però, con i tasti scelti si apre una piccola finestra di dialogo che mi chiede la psw, dopo che la inserisco esegue il procedimento sopra descritto.
la macro che viene fuori è questa
Sub Sproteggi()
'
' Sproteggi Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+S
'
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=-117
Rows("60:140").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("I10").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
ActiveWorkbook.Save
End Sub
A questo punto che faccio suicido me stessa? :-) [Modificato da aliele. 06/05/2018 11:04] |
| | Post: 3.419 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 06/05/2018 11:19 | |
1) non serve
ho iniziato la registrazione in questo modo:
2) ho tolto la protezione del foglio OK
3) ho selezionato le celle....nel VBA ci deve essere questa riga >>>Cells.Select
Riprova prima selezioni l'intero foglio tramite la cella sopra la riga1, formatto celle/protezione e clicchi le due celle in modo siano bianche
Ps. Ci penso io a spararTi con tutti quei fogli
NB Sei sicura d'aver protetto tutti 60/100 fogli e fare un ciclo? [Modificato da raffaele1953 06/05/2018 11:59] Excel 2013 |
| | Post: 40 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 06/05/2018 12:48 | |
Spiacente Raffaele ma non ho capito.
Avvio la macro o no?
Perdonami ma non sono esperta in excel poi se aggiugiamo il VBA andiamo peggio.
Tu scivi:
1) non serve
Cosa la macro?
ho iniziato la registrazione in questo modo:
2) ho tolto la protezione del foglio OK
OK cosa intende? Io ho selezionato il foglio nella sua interezza come hai scritto tu ed ho tolto la protezione.
Corretto?
3) ho selezionato le celle....nel VBA ci deve essere questa riga >>>Cells.Select
Ecco quanto sopra per me è arabo.
..... e clicchi le due celle in modo siano bianche
Quali celle?
Ps. Ci penso io a spararTi con tutti quei fogli
NB Sei sicura d'aver protetto tutti 60/100 fogli e fare un ciclo?
Sono certissima di averli protetti tutti, un lavoro da pazzi lo so ma l'ho fatto.
Saluti. [Modificato da aliele. 06/05/2018 12:48] |
| | Post: 3.420 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 06/05/2018 13:00 | |
Tu scrivi: 1) ho assegnato i tasti CTRL+MAIUSCOLO+S.... a me non servono.
2) ho tolto la protezione del foglio = Giusto OK
3) Adesso spiegami per bene come fai Tu, a protreggere un foglio? oppure centinaia.... Excel 2013 |
| | Post: 41 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 06/05/2018 17:47 | |
Io sono vintage così come conosco excel in maniera basica.
Quindi quando proteggo un foglio, dapprima vado a selezionare le celle che devono essere protette e deselezionare quelle che non devono esserlo e poi clicco sull'icona proteggi foglio ed assegno la psw. E questo lavoro lo faccio per ciascun (2 o 100) fogli che devo proteggere. [Modificato da aliele. 06/05/2018 17:48] |
| | Post: 3.421 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 07/05/2018 00:59 | |
C'è un "qualcosa" che non và su questo file.
Non riesco tramite VBA togliere la password (manualmente funziona), volevo crearti una sub di chiusura che riprottegeva il tutto.
Il bello che se gli tolgo la protezione manualmente e tramite vba lo riprottego con passsword (non viene inserita)
Mi sono ricreato un file (salvandolo per excel 2003 xxx.xls) e a me funziona tutto
Speriamo che GiuseppeMN sappia risolvere il quesito
Ps. Nel codice sopra vedo che protteggi Righe("60:140"), però a me in MFR 3 risulta celle A10:A55 + A60:AA67 [Modificato da raffaele1953 07/05/2018 01:10] Excel 2013 |
| | Post: 2.890 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 07/05/2018 07:02 | |
Buona giornata a Tutti.
@raffaele1953, scrive:
... Speriamo che GiuseppeMN sappia risolvere il quesito ...
Buona giornata, Raffaele;
visto che mi hai chiamato in causa potrei proporre una piccola modifica ad un Codice VBA.
Attualmente in:
- Workbook_SheetActivate
Troviamo:
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call Analizza
End Sub
quello a cui pensavo è una cosa di questo tipo:
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call Analizza
Application.ScreenUpdating = False
If Left(ActiveSheet.Name, 3) = "MFR" Then
ActiveSheet.Unprotect Password:="avia2018"
Range("A63:AB179").Locked = False
Range("A63:AB179").FormulaHidden = False
ActiveSheet.Protect Password:="avia2018"
End If
Application.ScreenUpdating = True
End Sub
In questo modo tutte le volte che un Foglio di lavoro "MFR" viene selezionato verranno sprotette le Celle del Range A63:AB179.
A disposizione.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 3.423 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 07/05/2018 11:28 | |
Ciao GiuseppeMN
Meno male che hai risolto, non riuscivo capire perchè il VBA mi diceva password errata.
Io penso che le righe devono essere protette e non sprotette, inoltre c'e anche il Range("A10:A55"). Ci penserà l'utente a smentirmi.
Io ho fatto questo codice per verificare "quale possa essere il motivo" e non farle mettere la protezione manualmente a tutti i fogli. Se gli funziona, potrà metterlo in "Questa_cartella_di lavoro" togliendo la prima riga
vb Sub Proteggi()
'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Integer, sh1 As Worksheet, Sfg As String
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 3) = "MFR" Then
Sfg = Sheets(i).Name
Set sh1 = Sheets(Sfg)
Sheets(i).Unprotect Password:="avia2018"
Sheets(i).Range("A10:A55").Locked = True
Sheets(i).Range("A10:A55").FormulaHidden = False
Sheets(i).Range("A63:AB179").Locked = True
Sheets(i).Range("A63:AB179").FormulaHidden = False
Sheets(i).Protect Password:=”avia2018”, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
End If
Next i
Application.ScreenUpdating = True
set sh1 = Nothing
End Sub[Modificato da raffaele1953 07/05/2018 11:33] Excel 2013 |
| | Post: 42 | Registrato il: 25/11/2007
| Città: JESI | Età: 47 | Utente Junior | 2003 | | OFFLINE | |
|
| 07/05/2018 21:19 | |
Buona sera ragazzi e grazie sempre.
Purtroppo non ho avuto modo di collegarmi, leggo che il problema potrebbe essere risolto e me ne compiaccio, Giuseppe dovrebbe dirmi dove e come implementare il codice VBA.
Per Raffaele le cella nella colonna A devono rimanere libere tanto li vengono visualizzate le tipologie di contratto dopo che viene selezionato da un elenco il nome del dipendente.
Fatemi sapere per piacere materialmente se possibile, step by step come devo procedere.
Ancora 100mila garzie |
| | Post: 2.893 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
| 08/05/2018 07:55 | |
Buona giornata, aliele; pensavo che le indicazioni fornite in risposta #16 fossero esaustive. In ogni caso, i passaggi sono i seguenti: - aprire la struttura VBA - nella struttura "Microsoft Excel Oggetti" aprire "Questa_cartella_di_lavoro" - copiare il codice indicato in risposta #16 Nel caso i problemi persistano credo utile e opportuno una chiacchierata in Skype. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
|
|
|
|