Verrouiller une plaque de cellule dynamique dans un classeur partagé

**Nicko29** · 05/02/2015, 17h36

Bonjour,

Je voudrais verrouiller un plage de cellule dynamique dans une feuille d'un classeur partagé.

dans ce classeur j'ajoute des enregistrements ( une ligne = 1 enregistrement de 5 cellules ( A1,B1,C1,D1,E1) )

Je voudrais que tout les les enregistrements ajouté soit verrouillé quand on active cette feuille.

J'ai testé la macro ci-dessous, mais cela ne fonctionne plus en mode partagé. Est-ce que je souhaite faire est possible ?

J'ai essayé aussi de passer par : révision\permettre la modification des plages \ nouvelle \ en essaynt de mettre une formule avec DECALER et NBVAL mais excel ne semble pas accepter ces formules a cet endroit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim d As Integer
 
d = Worksheets("DATA").Range("A65536").End(xlUp).Row
 
 
ActiveSheet.Unprotect
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
 
    Range("A1:E" & d).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
 ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True

**vinc_bilb** · 06/02/2015, 08h55

Bonjour,

Sauf erreur, vous ne pouvez pas modifier la structure d'un classeur partagé ...... donc le code du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Unprotect

doit planter je pense ....

**Nicko29** · 06/02/2015, 09h21

Bonjour,

C'est tout à fait, ca ne fonctionne pas avec ce type de code. Je ne sais pas en classeur partagé c'est possible du coup ....

**vinc_bilb** · 06/02/2015, 10h04

Bonjour,

Si partager un classeur se limite à des saisies de données, ça peut le faire.
Dès que vous avez quelque-chose de plus croustillant (filtres, création de feuille, format conditionnel, protection, ajout de noms....), ça plante ... et nécessite de repasser le classeur en mode exclusif quitte à le remettre en mode 'partagé' après

Je vous joints quelques exemples:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Sub SHOW_WBK_SHARE_MOD()
'=============================================================================
' Show this workbook shared mode
 
    Subname = "SHOW_WBK_SHARE_MOD"
 
    Dim Msgprompt As String, usr_status As Variant, cnt_usr As Integer
 
    ThisWorkbook.Activate
 
 
    usr_status = GET_WBK_USER(ThisWorkbook)
    cnt_usr = UBound(usr_status, 1)
 
    Msgprompt = Msgprompt & cnt_usr & " user(s) is/are sharing this workbook" & vbCrLf
    Msgprompt = Msgprompt & vbCrLf & DISPL_WBK_USR
 
    Msgprompt = "Workbook: " & ThisWorkbook.Name & " share mode: " & _
    ThisWorkbook.MultiUserEditing & vbCrLf & Msgprompt
    Msgbox Msgprompt, vbInformation, Subname
 
End Sub
 
Function DISPL_WBK_USR() As String
'=============================================================================
' Display the users sharing the workbook informations
 
    Funcname = "DISPL_WBK_USR"
 
    Dim usr_status As Variant
    Dim Msgprompt As String, Shartyp As String
    Dim cnt_usr As Integer, RevNumber As Integer, colnum As Integer
 
    usr_status = GET_WBK_USER(ThisWorkbook)
 
    For cnt_usr = 0 To UBound(usr_status, 1)
 
        For colnum = 0 To 3
            Msgprompt = Msgprompt & usr_status(cnt_usr, colnum) & vbTab
        Next colnum
        Msgprompt = Msgprompt & vbCrLf
 
    Next cnt_usr
 
    cnt_usr = cnt_usr - 1
 
    If ThisWorkbook.RevisionNumber >= 1 Then Msgprompt = Msgprompt & vbCrLf & "Rev number: " & ThisWorkbook.RevisionNumber
 
    DISPL_WBK_USR = Msgprompt
 
End Function
Function GET_WBK_USER(Wbk As Workbook) As Variant
'=============================================================================
' List the users sharing the workbook
 
    Funcname = "GET_WBK_USER"
 
    Dim Shartyp As String, cnt_usr As Integer, rownum As Integer
    Dim usr_status() As Variant, users As Variant
 
' Get the users informations
 
    users = Wbk.UserStatus
    ReDim usr_status(UBound(users, 1), 3)
 
    usr_status(0, 0) = "User name"
    usr_status(0, 1) = "Date"
    usr_status(0, 2) = "Time"
    usr_status(0, 3) = "Mode"
 
 
    For cnt_usr = 1 To UBound(users, 1)
        Select Case users(cnt_usr, 3)
            Case 1
                Shartyp = "Exclusive"
            Case 2
                Shartyp = "Shared"
        End Select
 
            ' Assign to the array for the return
        usr_status(cnt_usr, 0) = users(cnt_usr, 1)
        usr_status(cnt_usr, 1) = DateValue(users(cnt_usr, 2))
        usr_status(cnt_usr, 2) = TimeValue(users(cnt_usr, 2))
        usr_status(cnt_usr, 3) = Shartyp
 
    Next cnt_usr
 
    GET_WBK_USER = usr_status
 
End Function

**Nicko29** · 06/02/2015, 10h53

Bonjour,

C'est exactement un çà, cela se résume juste à de la saisie de donnée dans ce classeur (WBDATA), le seule code existant dans ce classeur est pour la protection des données saisies.
J'ai volontairement simplifié au maximum ce classeur.
Merci pour les exemples VBA de partage/départage.

A la lecture du code, si j'ai bien tout saisi, je me demande si un conflit ne pourrait pas exister, en cas de saisie quasi-simultané avec le classeur qui repasse en mode exclusif ?
Si je poursuis dans ce raisonnement, comme j'entre des données dans ce classeur (WBDATA), via autre classeur (WBFORM) avec du code VBA, il faudrait que je gère dans le code du classeur (WBFORM) , le fait que celui-ci ne puisse pas faire l'ajout VBA dans le classeur ( WBDATA) , et donc que je ré exécute celui-ci jusqu'à le classeur (WBFORM) reprenne la main sur ( WBDATA),