Página 1 de 1

Planilha em pasta compartilhada

Enviado: 02 Mai 2020 às 12:34
por Arthurdr
Criei uma planilha com macro que vou utilizar na minha empresa, muitas pessoas vão visualizar a planilha, mas somente eu posso alterar. Gostaria de saber se tem alguma forma de abrir em somente leitura para os outros. Já tentei usar a senha de gravação para abrir como somente leitura, mas abre como se n tivesse senha.
Tem alguma forma de restringir o acesso para somente eu conseguir fazer alterações na planilha? Ou alguma senha em que caso errada abra em somente leitura?

Planilha em pasta compartilhada

Enviado: 02 Mai 2020 às 13:25
por AfonsoMira
Boa tarde.

Experimente inserir o seguinte código no Sub Workbook_Open
Código: Selecionar todos

If Application.UserName <> "SeuNomeDeUtilizador" Then

ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly

End If
Onde diz "SeuNomeDeUtilizador" , substitua pelo seu nome de utilizador.

Uma maneira de descobrir qual é, é com a seguinte macro, na caixa immediate:
Código: Selecionar todos
?Application.UserName
Isto irá fazer com que quando o ficheiro não é aberto no seu computador ele automaticamente passa para apenas leitura.

Alguma dúvida só dizer.

:D

Re: Planilha em pasta compartilhada

Enviado: 03 Mai 2020 às 10:16
por andriessen
Poderia também proteger todas as células (Botão direito - Formatar Células - Segurança (permitindo que se acione as células bloqueadas) . Ou Proteger a Plan toda no rodapé.

Re: Planilha em pasta compartilhada

Enviado: 03 Mai 2020 às 13:51
por Arthurdr
AfonsoMira escreveu:Boa tarde.

Experimente inserir o seguinte código no Sub Workbook_Open
Código: Selecionar todos

If Application.UserName <> "SeuNomeDeUtilizador" Then

ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly

End If
Onde diz "SeuNomeDeUtilizador" , substitua pelo seu nome de utilizador.

Uma maneira de descobrir qual é, é com a seguinte macro, na caixa immediate:
Código: Selecionar todos
?Application.UserName
Isto irá fazer com que quando o ficheiro não é aberto no seu computador ele automaticamente passa para apenas leitura.

Alguma dúvida só dizer.

:D

Desculpe a demora para uma resposta.
Utilizei este código, mas quando abro aparece um erro:
"Erro em tempo de execução '1004':
O método 'ChangeFileAccess' do objeto '_Workbook' falhou"

Ai apertando em fim, ele abre o arquivo com um 1 no final, exemplo: arquivo "planilha", ele abre como "planilha1".
terai como tirar este erro?

Planilha em pasta compartilhada

Enviado: 04 Mai 2020 às 03:57
por AfonsoMira
Bom dia.

Experimente este código.

Caso o erro persista por favor diga.
Código: Selecionar todos
'Nome de utilizador
utilizador = Application.UserName
'Nome do ficheiro
filepath = Application.ActiveWorkbook.FullName

'Se utilizador for diferente do seu Nome de Utilizador então
If utilizador <> "SEU_NOME_DE_UTILIZADOR" Then

Workbooks.Open Filename:=filepath, ReadOnly:=True

Else

Workbooks.Open Filename:=filepath, ReadOnly:=False

End If

Planilha em pasta compartilhada

Enviado: 04 Mai 2020 às 09:32
por Arthurdr
Utilizando o código ele prosseguia com erro. Eu coloquei senha em todas as abas, acredito que vai funcionar, fiz alguns testes e deu certo.
Gostaria de saber, por que o arquivo abre com o número 1 no final de eu nome, como fosse uma cópia?