Ошибка permission denied vba - Не ошибается лишь тот, кто ничего не делает!

I have some code which keeps causing an

Error 70: Permission Denied

in my VBA code. I can’t work out why, because I know that the worksheet is unprotected and that I can make changes to it. The code in question is

sh.Name = "square"

It attempts to rename a shape that has been copied from another sheet and pasted into the sheet — there are no other shapes in the sheet with that name, because prior to these code I have already deleted all shapes with that name.

Any suggestion as to what might cause this permissions error?

lfrandom

9932 gold badges9 silver badges31 bronze badges

asked Jun 4, 2009 at 6:51

Generally that one is caused by trying to use the same name twice. Try doing this instead:

Sub Example()
    Dim lngIndx As Long
    Dim ws As Excel.Worksheet
    Dim shp As Excel.Shape
    Set ws = Excel.ActiveSheet
    Set shp = ws.Shapes.AddShape(msoShapeOval, 174#, 94.5, 207#, 191.25)
    If NameUsed(ws, "Foo") Then
        lngIndx = 2
        Do While NameUsed(ws, "Foo" & CStr(lngIndx))
            lngIndx = lngIndx + 1
        Loop
        shp.name = "Foo" & CStr(lngIndx)
    Else
        shp.name = "Foo"
    End If
End Sub

Private Function NameUsed(ByVal parent As Excel.Worksheet, ByVal name As String) As Boolean
    Dim shp As Excel.Shape
    Dim blnRtnVal As Boolean
    name = LCase$(name)
    For Each shp In parent.Shapes
        If LCase$(shp.name) = name Then
            blnRtnVal = True
            Exit For
        End If
    Next
    NameUsed = blnRtnVal
End Function

answered Jun 4, 2009 at 7:18

OorangOorang

6,6201 gold badge35 silver badges52 bronze badges

Clean as you go. Set objects to nothing, strings to nullstring after using them and don’t use the same names between functions and subroutines.

answered Apr 10, 2012 at 9:58

«Permission Denied» is not for a protected worksheet but for wrong access to a property or variable.

I believe that «sh» is null at the point you are trying to access it and set its «Name» property. try to see if you initialized it correctly before setting its properties.

answered Jun 4, 2009 at 7:03

David SalzerDavid Salzer

8721 gold badge7 silver badges24 bronze badges

There are several answers here on StackOverflow about this VB Error. Each answer or situation is unique in reality — although each existing answer states a different potential root cause (file permissions, folder permissions, name reuse, ranges, etc).

I would recommend narrowing down the root-cause by double clicking on the side of the stating function/code in order to mark a breakpoinnt (looks like a red dot) (Alternatively, you can right click on the line of the code — Select the Toggle and then Breakpoint).

Next, run your code, and it will stop in your breakpoint. You can then Step-Into/Over/Out your code and essentially find the line of code that is responsible for throwing your error code. (Step Into is F8, Step over is Shift+F8 ((Go To the Debug top menu to see more options)))

Once you identified the responsible line of code — you can start looking further.

In my case scenario, I was using a protected variable name «Date» (look into variable names). Once I renamed it to something else, the problem was fixed.

answered Sep 12, 2019 at 13:53

KingsInnerSoulKingsInnerSoul

1,3434 gold badges20 silver badges48 bronze badges

Источник

Jktu

Пользователь

Сообщений: 4
Регистрация: 14.12.2021

14.12.2021 12:30:55

При открытии файла 1 сохраняю его как файл 2.
Первый файл хочу переместить в архив, при этом получаю ошибку

Цитата
Run-time error ’70’ Permission denied

Средствами windows я переместить или удалить файл тоже не могу. Она говорит «Нет доступа или файл уже используется».
Как отпустить файл 1 после saveas?

Код
ThisWorkbook.SaveAs NewFilePath, FileFormat:=52 fso.MoveFile FilePath, ArchivePath

Юрий М Модератор Сообщений: 60763 Регистрация: 14.09.2012 Контакты см. в профиле	Jktu, зачем Вы пишете через строку? зачем растягивать сообщение? Не нужно жать на Enter по несколько раз. И код следует оформлять соответствующим тегом: ищите кнопку <…> и приведите своё сообщение в порядок.

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14264
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

14.12.2021 13:14:36

Цитата
написал: Как отпустить файл 1 после saveas?

не запускать код из той книги, которую хотите в архив запихнуть. Ведь в момент попытки закинуть в архив файл с кодом — код-то выполняется, а значит файл по сути «открыт».

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Олег Пользователь Сообщений: 4 Регистрация: 14.12.2021	Не совсем так. Я сохранил файл с новым именем и фактически макрос крутиться в новом файле. Как освободить старый файл? Запускать код снаружи нет возможности. Изменено: Олег — 14.12.2021 13:30:42

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14264
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

14.12.2021 14:05:48

Цитата
написал: сохранил файл с новым именем и фактически макрос крутиться в новом файле

это факт или Вы так думаете?
Судя по куску приложенного кода — Вы делаете SaveAs ровно тем же кодом, что и пытаетесь потом архивировать. Нигде не вижу отсылки в новый файл.
Если FilePath = ThisWorkbook — то Вы ошибаетесь, полагая, что что-то само запустилось в новом файле. Ваш исходный файл занят выполнением кода. То, что Вы сделали до этого SaveAs не прекращает работу кода. А по Вашей логике — код должен был бы завершиться уже сразу после SaveAs и до архивации дело бы вообще не дошло.
Если ThisWorkbook это ровно та книга, которую хотите архивировать, то правильнее делать SaveCopyAs и архивировать эту копию. Она точно не будет занята никаким процессом, потому что весь процесс будет в файле с кодом.

Цитата
написал: Средствами windows я переместить или удалить файл тоже не могу

поясните так же — в какой момент Вы это пробуете делать? Это только с одним файлом или с любым файлом в этой папке?

Изменено: Дмитрий(The_Prist) Щербаков — 14.12.2021 14:08:43

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Олег

Пользователь

Сообщений: 4
Регистрация: 14.12.2021

14.12.2021 14:44:16

Я так думал. Я предполагаю, что я ошибался и ищу где именно.

Судя по тому, что я вижу название нового файла в дереве проекта, я сделал вывод, что код крутится в новом файле.

Диспетчер задач показывает 2 процесса excel после saveas.

Я пытался вызывать новый макрос на перемещение файла. Результат не поменялся.

Поэтому спрашиваю совет у опытных.

SaveCopyAs, тоже вариант, но не идеальный.

1) в итоге мне нужно иметь файл с новым именем в открытом состоянии. возможно стоит поискать переименование.
2) файл в папке с архивами желательно иметь без изменения даты.
3) в исходной папке старый файл надо удалить.

Более полный код:

Код

Sub save_file()

Set fso = CreateObject("Scripting.FileSystemObject")

FilePath = ThisWorkbook.FullName
FileOnly = ThisWorkbook.Name
PathOnly = Left(FilePath, Len(FilePath) - Len(FileOnly))

NewFilePath = Left(FilePath, Len(FilePath) - Len(FileOnly)) + Format(Now, "yyyy.mm.dd") + "New.xlsm"

ArchivePath = "s:"

If Not fso.FileExists(NewFilePath) Then
   ThisWorkbook.SaveAs NewFilePath, FileFormat:=52
   fso.MoveFile FilePath, ArchivePath
End If
End Sub

Надеюсь будут ещё идеи.

Изменено: Олег — 14.12.2021 15:04:59

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Олег, зачем так рвать сообщение?

Юрий М

Модератор

Сообщений: 60763
Регистрация: 14.09.2012

Контакты см. в профиле

14.12.2021 15:29:59

Цитата
Юрий М написал: Не нужно жать на Enter по несколько раз

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14264
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

14.12.2021 16:31:07

Может попробовать правильно перемещать?

Код

Sub save_file()
    Dim FilePath$, FileOnly$, PathOnly$, ArchivePath$, NewFilePath$, FName$
    Dim fso As Object, objFile As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    FilePath = ThisWorkbook.FullName
    FileOnly = ThisWorkbook.Name
    PathOnly = Left(FilePath, Len(FilePath) - Len(FileOnly))
    
    FName = Format(Now, "yyyy.mm.dd") & "New.xlsm"
    NewFilePath = Left(FilePath, Len(FilePath) - Len(FileOnly)) & FName
     
    ArchivePath = "d:" & FName 'для перемещения нужен полный путь к файлу, а не только путь к папке
    If Dir(NewFilePath, 16) = "" Then
       ThisWorkbook.SaveAs NewFilePath, FileFormat:=52
       fso.MoveFile FilePath, ArchivePath
    End If
End Sub

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Евгений Смирнов

Пользователь

Сообщений: 539
Регистрация: 18.02.2021

#10

14.12.2021 16:54:40

Цитата
Дмитрий(The_Prist) Щербаков написал Ваш исходный файл занят выполнением кода.

Если исходный файл занят после оператора SaveAs мы в следующих строчках можем исходный файл( удалить, переместить, скопировать, переименовать)?
Я думал что с занятым файлом эти действия недоступны

Изменено: Евгений Смирнов — 14.12.2021 17:13:51

Евгений Смирнов, тут дело-то не простое…С одной стороны — файл не должен быть занят, если мы делаем Save As из меню. Там никаких отсылок на файл не остается. Но если делаем кодом — то какое-то время файл еще используется системой, т.к. его код был скомпилирован и он на текущий момент выполняется(да, там происходят процессы чуть иные, но будем считать так — файл все равно какое-то время после SaveAs используется). Сколько файл будет заблокирован зависит от того, где как и что происходит. Например, на локальном диске это будут скорее всего миллисекунды(опять же зависит от размера файла). После выполнения всех команд кода файл должен быть успешно перемещен в любом случае. А вот на сетевом(или что-то вроде виртуального рабочего стола) — это может занять и больше времени и вообще иначе отработать. Вроде код уже выполнил SaveAs и файл создался, и новый вроде как сейчас используется, а не исходный — но система все еще считает исходный файл занятым. И тут разные факторы могут повлиять на то, когда система его разблокирует и разблокирует ли вообще без презапуска Excel.
Приложенный мной код выше должен работать по сути. И если все равно доступ будет заблокирован — значит дело уже больше в ОС, а не в кодах.

Изменено: Дмитрий(The_Prist) Щербаков — 14.12.2021 17:25:55

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Евгений Смирнов

Пользователь

Сообщений: 539
Регистрация: 18.02.2021

#12

14.12.2021 17:28:25

Дмитрий(The_Prist) Щербаков

Спасибо за пояснения. Но тогда ещё как вариант после SaveAs можно задержку воткнуть.

Код
Application.Wait (Now + TimeValue("00:00:10")) 'Задержка выполнения макроса на 10 сек

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14264
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#13

14.12.2021 17:37:58

Цитата
Евгений Смирнов написал: можно задержку воткнуть

а смысл? Сначала надо диагностировать, а потом костыли вешать. А если файл и без задержек нормально переместиться? Ждать 10 секунд? Не самая лучшая идея. К тому же метод Wait опять же может удерживать файл в процессах. Так же, если проблема в ОС — файл может вообще не получится освободить ни через 10 секунд, ни через полчаса.
Поэтому повторюсь: все фиксированные задержки лучше делать только после четкого понимания проблемы. Иначе они только хуже сделают. Если уж на то пошло, то лучше обход ошибок и цикл Do While до тех пор, пока не получится выполнить операцию. Но здесь тоже надо аккуратно и выставлять какие-то границы(таймер на какой-то лимит, счетчик и т.п.), иначе есть шанс попасть в бесконечный цикл.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Евгений Смирнов

Пользователь

Сообщений: 539
Регистрация: 18.02.2021

#14

14.12.2021 18:49:52

Дмитрий(The_Prist) Щербаков

А может в вашем коде и FSO не нужен Зачем лишние объекты

Код

Sub save_file1()
    Dim FilePath$, FileOnly$, PathOnly$, ArchivePath$, NewFilePath$, FName$
     
    FilePath = ThisWorkbook.FullName
    FileOnly = ThisWorkbook.Name
    PathOnly = Left(FilePath, Len(FilePath) - Len(FileOnly))
     
    FName = Format(Now, "yyyy.mm.dd") & "New.xlsm"
    NewFilePath = Left(FilePath, Len(FilePath) - Len(FileOnly)) & FName
      
    ArchivePath = "d:" & FName 'для перемещения нужен полный путь к файлу, а не только путь к папке
    If Dir(NewFilePath, 16) = "" Then
       ThisWorkbook.SaveAs NewFilePath, FileFormat:=52
       Name FilePath As ArchivePath
    End If
End Sub

Изменено: Евгений Смирнов — 14.12.2021 18:50:25

sokol92

Пользователь

Сообщений: 4456
Регистрация: 10.09.2017

#15

14.12.2021 19:50:12

Я в коде из #6 изменил присвоение ArchivePath на

Код
ArchivePath = "C:temptemp"

и успешно выполнил макрос.
Писать файлы к корень диска (S:) — моветон, проверьте есть ли соответствующий доступ.
Повторите свои действия для любого существующего каталога ArchivePath, к которому заведомо есть доступ по записи. Перед экcпериментом закройте Excel и снимите все фоновые процессы Excel через Диспетчер задач.

P.S. Увидел в названии темы «Permissio» и опешил — неужели Excel был уже в Древнем Риме?

Изменено: sokol92 — 14.12.2021 20:02:59

Владимир

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14264
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#16

15.12.2021 11:44:27

Цитата
Евгений Смирнов написал: А может в вашем коде и FSO не нужен

моего кода там и нет Я не стал переписывать полностью код ТС-а, чтобы ему больше был понятен смысл дополнений. Плюс имейте ввиду, что Dir не всегда корректно работает с сетевыми дисками. Поэтому я не стал ничего менять у ТС — пусть использует то, что больше нравится и что больше подходит. Вдруг он с сетевым диском это будет применять…

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

sokol92 Пользователь Сообщений: 4456 Регистрация: 10.09.2017	Дополнение к ответу Дмитрия. См. этo сообщение, п. 3.4.

Олег

Пользователь

Сообщений: 4
Регистрация: 14.12.2021

Очень интересная картина.

Как догадался Владимир, файлы лежат в сети.
S; , это тут выложено для сокращения. На самом там что-то типа S:Проект и т.п.
Пробовали менять написание пути типа S:Проект или \ServerПроект

Заметил ещё вчера, что иногда, оно всё таки работает. Но очень иногда, он отрабатывал. Вчера думал показалось.
При замене сетевого пути на локальный, типа C:temptemp, действительно всё срабатывает.
Удивляет ситуация ещё сильнее.
Доступ к конечным папкам точно есть.
Пробовал ставить wait до 40 сек., далее не имеет смысла, т.к. с файлом нужно работать.
К тому же если после ошибки перехожу в debug, проходит несколько минут и файл не копируется ни кодом не из винды.

Dir и Name пробовал, результат одинаковый.

Заменители FO, типа Shell.Application использовать не умею. Подскажите пожалуйста, если можно.
Хотя, я из винды пытаюсь файл ужалить при возникновении ошибки, он не даёт.

Дмитрий(The_Prist) Щербаков Спасибо за пояснения. Вчера сразу после вашего сообщения №3 я попробовал все действия с исходным файлом ( удалить, переместить, скопировать, переименовать) после SaveAs. На локальном компе все нормально. После сообщения №9 вчера, я так и понял в чем фишка вашего кода, почему он точно прокатит. А сегодня с утра заглянул снова в тему и наверно понял.

1. Вылазит Ошибка 70 « Отказано в доступе» значит недоступен либо исходный файл либо архивная папка

2. Вы добавили строку If Dir(NewFilePath, 16) = «». Здесь проверяется не только наличие файла в папке архива, но и доступность папки. Значит ошибка возникала из-за отказа в доступе к папке архива, а не к исходному файлу. Или я ошибаюсь?

sokol92 Здравствуйте Владимир. Сообщение, п. 3.4. в вашей теме посмотрел. Скопировал на комп все пункты на всякий случай. Вряд ли конечно мне придется писать приложения на VBA в системах с различными версиями Windows. Начинающим такое не под силу.

	Олег Раз диск сетевой то мой код, не стоит пробовать, как подсказал sokol92 . Код Дмитрия Щербакова лучше.

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14264
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#21

15.12.2021 17:53:11

Цитата
Евгений Смирнов написал: Вы добавили строку If Dir(NewFilePath, 16) = «».

это больше по ошибке — в процессе проверки кода записал привычное обращение и забыл подменить на проверку ТС. Правильнее здесь применить то, что было у ТС:

Код
If Not fso.FileExists(NewFilePath) Then

Цитата
Евгений Смирнов написал: ошибка возникала из-за отказа в доступе к папке архива, а не к исходному файлу

и да и нет. Если недоступна папка — то и файл из неё недоступен. А приведенная мной конструкция проверяет именно наличие файла по указанному пути.

Изменено: Дмитрий(The_Prist) Щербаков — 15.12.2021 17:54:35

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Евгений Смирнов

Пользователь

Сообщений: 539
Регистрация: 18.02.2021

#22

15.12.2021 18:16:44

Цитата
Олег написал К тому же если после ошибки перехожу в debug, проходит несколько минут и файл не копируется ни кодом не из винды.

Тогда проблема вообще не в коде. Код ТС нормальный, исходя из последних сообщений Дмитрия Надо обратить внимание на сообщением №15

Цитата
Sokol 92 Перед экcпериментом закройте Excel и снимите все фоновые процессы Excel через Диспетчер задач

Изменено: Евгений Смирнов — 16.12.2021 05:00:47

sokol92

Пользователь

Сообщений: 4456
Регистрация: 10.09.2017

#23

15.12.2021 18:50:32

Цитата
написал: проходит несколько минут и файл не копируется ни кодом не из винды

Если Excel «подвис» во время копирования, то, естественно, файлы будут заблокированы. Более того, поскольку диск сетевой, то любой пользователь, у которого копирование «зависло», будет мешать остальным.

Уточните у своих системщиков, какого типа сетевой диск (Windows, Linux Samba, …).

Изменено: sokol92 — 15.12.2021 18:51:13

Владимир

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#24 16.12.2021 00:59:25 Олег, сообщение сами исправите или модераторам после Вас убирать? Помощь скрыта

Источник

Permalink

Cannot retrieve contributors at this time

title	keywords	f1_keywords	ms.prod	ms.assetid	ms.date	ms.localizationpriority
Permission denied (Error 70)	vblr6.chm50029	vblr6.chm50029	office	b6822e40-c7e7-13e1-575e-632a99ad9926	06/08/2017	medium

An attempt was made to write to a write-protected disk or to access a locked file. This error has the following causes and solutions:

You tried to open a write-protected file for sequential Output or Append. Open the file for Input or change the write-protection attribute of the file.
You tried to open a file on a disk that is write-protected for sequential Output or Append. Remove the write-protection device from the disk or open the file for Input.
You tried to write to a file that another process locked. Wait to open the file until the other process releases it.
You attempted to access the registry, but your user permissions don’t include this type of registry access.

On 32-bit Microsoft Windows systems, a user must have the correct permissions for access to the system registry. Change your permissions or have them changed by the system administrator.

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).

[!includeSupport and feedback]

Источник

Содержание

В разрешении отказано (ошибка 70)
Поддержка и обратная связь
Vba run time error 70 permission denied
Answered by:
Question
Vba run time error 70 permission denied
Answered by:
Question
Thread: Run-time error ’70’: Permission denied ->when i run code
Run-time error ’70’: Permission denied ->when i run code
Vba run time error 70 permission denied
Answered by:
Question
Answers

В разрешении отказано (ошибка 70)

Сделана попытка записать на диск, защищенный от записи, или получить доступ к заблокированному файлу. Эта ошибка имеет следующие причины и решения:

сделана попытка открыть защищенный от записи файл для последовательного вывода или добавления. Откройте файл для ввода или измените атрибут защиты файла от записи;

сделана попытка открыть файл на диске, защищенный от записи для последовательного вывода или добавления. Удалите с диска устройство защиты от записи или откройте файл для ввода;

сделана попытка записать в файл, заблокированный другим процессом. Чтобы открыть файл, дождитесь, пока процесс завершит работу с ним;

вы попытались получить доступ к реестру, но ваши разрешения пользователя не включают этот тип доступа к реестру.

В 32-разрядных операционных системах Microsoft Windows пользователь должен иметь правильные разрешения для доступа к реестру системы. Измените свои разрешения или обратитесь к системному администратору, чтобы он изменил их.

Для получения дополнительной информации выберите необходимый элемент и нажмите клавишу F1 (для Windows) или HELP (для Macintosh).

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Vba run time error 70 permission denied

This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.

Answered by:

Question

The larger snippet of code below works perfectly on *most* Vista machines with Administrator rights? When it’s not Administator (and on some laptops with Administrator log in) I get «Runtime error 70, permission denied.» I believe this is because it’s trying to write a file to the C:/. I debugged, and the code gets caught up at:

cht1.Chart.Export strPath & «DailyBoard.jpeg»Export to Strpath

As soon as it tries to write the first file to the C:/ drive it generates the error.

I have researched runtime error 70 at nauseam and can’t find a work-a-round. I will not be able to change all the permissions settings on every computer this might try to be run on. Not all users will be able to log on as an Administrator. If there’s a way to bypass this problem, or to save directly to the users desktop, I’m ok with that? I just need to avoid this error on non-Administrator log ins. Any ideas?

This was tested on 5 Vista PC’s with Macro security settings «enabled» in Excel 2007.

2 logged on as Administrator, code worked perfectly
2 logged on as regular user without Admin rights, runtime error 70
1 logged on as Administrator (laptop), also runtime error 70

Code:
Sub Mail_Range_Outlook_Body()
‘ Working in Office 2000-2007
MsgBox «Please stop and make sure Outlook is open first, THEN click OK.»

Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim sj
Dim em
Dim pic1 As Excel.Range
Dim pic2 As Excel.Range
Dim cht1 As Excel.ChartObject
Dim cht2 As Excel.ChartObject
Dim pic3 As Excel.Range
Dim cht3 As Excel.ChartObject

Const strPath As String = «C:»

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set sj = ActiveSheet.Range(«F10»)
Set em = ActiveSheet.Range(«F11»)

Set pic1 = Sheet7.Range(«A1:M41»)
pic1.CopyPicture xlScreen, xlPicture
Set cht1 = ActiveSheet.ChartObjects.Add(0, 0, pic1.Width, pic1.Height)
cht1.Chart.Paste
cht1.Chart.Export strPath & «DailyBoard.jpeg»
cht1.Delete
Set cht = Nothing
Set cht1 = Nothing

Set pic2 = Sheet24.Range(«A1:G42»)
pic2.CopyPicture xlScreen, xlPicture
Set cht2 = ActiveSheet.ChartObjects.Add(0, 0, pic2.Width, pic2.Height)
cht2.Chart.Paste
cht2.Chart.Export strPath & «WeeklyInfo.jpeg»
cht2.Delete
Set cht = Nothing
Set cht2 = Nothing

Set pic3 = Sheets(«Email_Template»).Range(«A6:B63»).SpecialCells(xlCellTypeVisible)
pic3.CopyPicture xlScreen, xlPicture
Set cht3 = ActiveSheet.ChartObjects.Add(0, 0, pic3.Width, pic3.Height)
cht3.Chart.Paste
cht3.Chart.Export strPath & «NightlyEmail.jpeg»
cht3.Delete
Set cht = Nothing
Set cht2 = Nothing

Set rng = Nothing
On Error Resume Next
Set rng = Sheets(«Email_Template»).Range(«A6:B63»).SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If rng Is Nothing Then
MsgBox «The selection is not a range or the sheet is protected» & _
vbNewLine & «please correct and try again.», vbOKOnly
Exit Sub
End If

Set OutApp = CreateObject(«Outlook.Application»)
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = em
.CC = «»
.BCC = «»
.Subject = sj
.HTMLBody = RangetoHTML(rng)
.Attachments.Add «c:NightlyEmail.jpeg»
.Attachments.Add «c:DailyBoard.jpeg»
.Attachments.Add «c:WeeklyInfo.jpeg»
.Display ‘or use .Send
End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

Set OutMail = Nothing
Set OutApp = Nothing
Set rng = Nothing

Источник

Vba run time error 70 permission denied

This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.

Answered by:

Question

cht1.Chart.Export strPath & «DailyBoard.jpeg»Export to Strpath

As soon as it tries to write the first file to the C:/ drive it generates the error.

Code:
Sub Mail_Range_Outlook_Body()
‘ Working in Office 2000-2007
MsgBox «Please stop and make sure Outlook is open first, THEN click OK.»

Const strPath As String = «C:»

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set sj = ActiveSheet.Range(«F10»)
Set em = ActiveSheet.Range(«F11»)

Set rng = Nothing
On Error Resume Next
Set rng = Sheets(«Email_Template»).Range(«A6:B63»).SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If rng Is Nothing Then
MsgBox «The selection is not a range or the sheet is protected» & _
vbNewLine & «please correct and try again.», vbOKOnly
Exit Sub
End If

Set OutApp = CreateObject(«Outlook.Application»)
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

Set OutMail = Nothing
Set OutApp = Nothing
Set rng = Nothing

Источник

Thread: Run-time error ’70’: Permission denied ->when i run code

Thread Tools

Display

Run-time error ’70’: Permission denied ->when i run code

I have been using this code for over a year and all of a sudden i can not run without getting the Run-time error ’70’: Permission denied.
I have tried just about every thing and all the webs info on this matter that i have found has not worked.
I have Windows 7 Ultimate. I noticed that my office 2007 completely and excel did an update back 10 days ago but i am sure i used it since then because i have had jobs to complete for the company i use this code on since then. The odd thing is that code very similar to this works for other websites on this same laptop. I have noticed some security pop up which i normally allow but i may have clicked not to once or twice, so i disabled avast security just to see, but nothing same issue. The next thing i thought maybe the owners of the Website itself changed something and now i can’t fill out there forms. So i opened the code with my other laptop that is Windows vista and it runs it fine with out any issues. I googled this issue and one post looked to have promise disabling User Account Control, but that did not work either and noticing also that my vista had it activate i should have known this was not going to work. I have three similar codes for the same website that i work with, but all three have the same issue even if i have been working with only one of them in the last few days.

On the code below if the cell «B24» were empty it would normally warn and say «Website is not opened yet», but it does not its steps threw this code and it acts as if the website url is in the «B24» cell and then tries to execute my code and it fails with the Run-time error we are now talking about. Note that it does this either with or without the «B24» cell having the URL in it.

I also thought internet explorer is causing it and is blocking the website, but i could not find it as a blocked website or popup.
So what could be causing this issue. Is it the code that i have not changed and always worked before, Excel program itself, security setting that i may have blocked and had nothing to do with avast security software, any suggestion welcome.

Last edited by SamT; 12-22-2014 at 11:59 AM . Reason: Formatted Code with # icon

Without a URL and the Owner and APN strings to test, it is hard to test.

Hopefully, you have tried Compile before a Run. If the Compile fails, I suspect it would be due to the MSIE browser object not being set in the References. You can check that as well in VBE’s Tools > References.

Tip: Now we use Code tags rather than VBA tags for posting code. Click the # icon to insert those or type them.

Источник

Vba run time error 70 permission denied

This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.

Answered by:

Question

I am using MS Access DataBase for my Application.

On the User InterFace as soon as i click on the ComboBox i start getting the the Error Message : Runtime Error ’70’ Permission Denied.

On the RowSource Property of ComboBox my setting in an Select Query.

I need Help on this, i have also checked the DCOM Properties.

Thanks And Regards

Answers

Well, I came accross this thread:

-17. How can I fix the Run-time error ’70’: Permission Denied?

A: Your computer may not have the necessary registry information for the class «Access.Application». Please run regedit to search Access.Application class. If it’s missing you may need to repair your Access. If you are running our converters on a Vista system you need to run them as Administrator.

Hope this helps,

Daniel van den Berg | Washington, USA | «Anticipate the difficult by managing the easy»

Источник

Remove From My Forums

Question
I’m getting a Permission Denied error copying a spreadsheet from one directory to another and renaming it.

FileCopy Workbook_Name, «c:TempTemp1.xlsx»

The destination directory is empty and attribute set to vbNormal.

Interestingly, I can step through (F8) the FileCopy statement after the halt without an error.

Ideas?

Thanks,

Jnana

Jnana Sivananda

Answers

Public Function Copy(FileSrc As String, FileDst As String, Optional NoOverWrite As Boolean = True) As Boolean
    Dim Flag As Long
    Dim Name As String
    Name = Right(FileSrc, Len(FileSrc) - InStrRev(FileSrc, ""))
    If CopyFileA(FileSrc, FileDst & Name, NoOverWrite) Then
       Copy = True
    Else
        Copy = False
    End If
End Function

  'Network Security - Network does not allow reference to the Scripting runtime library (COM Object)
    ' Using Window 32 API (Kernel 132) to Move file
Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As String, _
            ByVal NewFileName As String, ByVal FailIfExists As Long) As Long

Months ago, I had a similar problem where i could not copy Excel files because of network security. therefore, I am using window API to move the file and copy it to anothe place.

The copy function has as parameter…Path of file, path of destination, and if you want to overwrite the file.

Hope this give you a alternative if you can get it to work.

Edited by

Thursday, May 2, 2013 6:37 PM
Marked as answer by
Jnana
Thursday, May 2, 2013 6:58 PM

Источник

В разрешении отказано (ошибка 70)

Поддержка и обратная связь

Vba run time error 70 permission denied

<img decoding="async" src="https://i1.social.s-msft.com/globalresources/Images/trans.gif" />

Answered by:

Question

Vba run time error 70 permission denied

<img decoding="async" src="https://i1.social.s-msft.com/globalresources/Images/trans.gif" />

Answered by:

Question

Thread: Run-time error ’70’: Permission denied ->when i run code

Thread Tools

Display

Run-time error ’70’: Permission denied ->when i run code

Vba run time error 70 permission denied

<img decoding="async" src="https://i1.social.s-msft.com/globalresources/Images/trans.gif" />

Answered by:

Question

Answers

Question

Answers