Сохранение листа книги в файле - проблема с защитой листа и привязкой макросов

@Ermak27 · Регистрация: 16.01.2013

Author24 — интернет-сервис помощи студентам

С толкнулся с такой проблемой при сохранении листа в файле

вот код который сохраняет лист в файле

Visual Basic

Sub red_row()
'Application.Worksheet_BeforeDoubleClick = False
Cells.Locked = True
ActiveSheet.Protect
ActiveWorkbook.Save
On Error Resume Next
    Folder$ = "D:\" & Date & "\" '& Worksheets(1).Range("a2") & "\"
    MkDir Folder$    ' создаем папку, если её ещё нет
 
    Filename = Folder & "Проба.xls"    ' полный путь к создаваемому файлу
 
    ' копируем активный лист (при этом создается новая книга)
   Err.Clear: ActiveSheet.Copy: DoEvents
    If Err Then Exit Sub    ' произошла какая-то ошибка при попытке копирования листа
 
    ' сохраняем файл под заданным именем в формате Excel 2003
   ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
    ' закрываем сохраненный файл
   ActiveWorkbook.Close False
End Sub

У меня файл защищен паролем, на некоторые ячейки активны, этот макрос закрывает доступ на все оставшийся активные ячейки (т.е файл теперь полностью защищен от редактирования), сохраняет файл на диск D, но когда я открываю файл сохранный на диске D он активный для редактирования, такое ощущение что макрос на закрытие доступа не сработал, почему так не пойму. И вторая беда можно сохранить файл так чтобы он полностью очистил весь код в макросе, а то когда я открываю сохраненный файл на диске D он ругается на код который прописан в Лист1, а код этот привязан к модулю а модуль не перенеся.
Подскажите пожалуйста как быть мне.

toiai · 01.02.2013, 18:45

А код то нужен или нет?

Скрипт · 01.02.2013, 19:17

Просто информация: при копировании листа, если в ячейке больше 255 символов, то остальной текст в ячейке обрезается. Если копирование происходит с помощью VBA, то никаких предупреждений не выскакивает о том, что данные будут потеряны.

@Alex77755 · 02.02.2013, 09:51

можно сохранить файл так чтобы он полностью очистил весь код в макросе

Visual Basic

'---------блок удаления всех макросов в книге 
        Set objVBProject = ActiveWorkbook.VBProject
    If objVBProject = 1 Then
        MsgBox "VBProject выбранной книги защищён." & vbCrLf & _
             "     Компоненты не будут удалены.", vbExclamation, "Отмена выполнения"
        Exit Sub
    End If
 
    For Each oVBComponent In objVBProject
        On Error Resume Next
        With oVBComponent
            Select Case .Type
            Case 1    'Модули
                .Collection.Remove oVBComponent
            Case 2    'Модули Класса
                .Collection.Remove oVBComponent
            Case 3    'Формы
                .Collection.Remove oVBComponent
            Case 100    'ЭтаКнига, Листы
                    lCountLines = .CodeModule.CountOfLines
                    .CodeModule.DeleteLines 1, lCountLines
            End Select
        End With
    Next
    Set oVBComponent = Nothing

@~~Апострофф~~ · 02.02.2013, 10:16

Alex77755, Вы забыли упомянуть про необходимые подготовительные операции (для Excel 2003 они выглядят так) -

@Ermak27 · 03.02.2013, 19:08 **[ТС]**

Alex77755, выдает такое предупреждение

VBProject выбранной книги защищен. Компоненты не будут удалены.

У меня на книге стоит защита я ее снял

Visual Basic

Sub red_row()
'Application.Worksheet_BeforeDoubleClick = False
Cells.Locked = True
ActiveSheet.Protect
ActiveWorkbook.Save
Sheets("Услуги").Unprotect Password:="111222"
On Error Resume Next
    Folder$ = "D:\" & Date & "\" '& Worksheets(1).Range("a2") & "\"
    MkDir Folder$    ' создаем папку, если её ещё нет
 
    Filename = Folder & "Питкяранта.xls"    ' полный путь к создаваемому файлу
 
    ' копируем активный лист (при этом создаётся новая книга)
   Err.Clear: ActiveSheet.Copy: DoEvents
    If Err Then Exit Sub    ' произошла какая-то ошибка при попытке копирования листа
 
    ' сохраняем файл под заданным именем в формате Excel 2003
   ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
    ' закрываем сохранённый файл
   ActiveWorkbook.Close False
   Set objVBProject = ActiveWorkbook.VBProject
    If objVBProject = 1 Then
        MsgBox "VBProject выбранной книги защищён." & vbCrLf & _
             "     Компоненты не будут удалены.", vbExclamation, "Отмена выполнения"
        Exit Sub
    End If
 
    For Each oVBComponent In objVBProject
        On Error Resume Next
        With oVBComponent
            Select Case .Type
            Case 1    'Модули
                .Collection.Remove oVBComponent
            Case 2    'Модули Класса
                .Collection.Remove oVBComponent
            Case 3    'Формы
                .Collection.Remove oVBComponent
            Case 100    'ЭтаКнига, Листы
                    lCountLines = .CodeModule.CountOfLines
                    .CodeModule.DeleteLines 1, lCountLines
            End Select
        End With
    Next
    Set oVBComponent = Nothing
    Sheets("Услуги").Protect Password:="111222"
End Sub

но он все равно выдает предупреждение, что мне делать?

@~~Апострофф~~ · 03.02.2013, 19:20

Ermak27, Сохранение листа книги в файле - проблема с защитой листа и привязкой макросов

@Ermak27 · 03.02.2013, 19:39 **[ТС]**

Апострофф, у меня оффис 2007 там нет такой надписи в VBA

@~~Апострофф~~ · 03.02.2013, 19:49

.....

@Ermak27 · 03.02.2013, 20:01 **[ТС]**

Апострофф, это у меня стоит

@Alex77755 · 04.02.2013, 00:39

Visual Basic

1	Sheets("Услуги").Unprotect Password:="111222"

и

VBProject выбранной книги защищен

лист и VBпроект немного разные вещи

@Ermak27 · 04.02.2013, 08:31 **[ТС]**

Alex77755, у меня стояла защита на редактирование кода, но я ее снял. почему все равно ругается и как можно снять и поставить ее опять, с помощью кода?

@Alex77755 · 04.02.2013, 08:41

Колись за что в гугле забанили!?

Visual Basic

Sub Unprotect_VBA()
    Dim objVBProject As Object, objVBComponent As Object, objWindow As Object
 
    Workbooks.Open "C:\1.xls"
    Set objVBProject = ActiveWorkbook.VBProject
    'просматриваем все окна проекта в поисках окна снятия защиты
    For Each objWindow In objVBProject.VBE.Windows
        ' Type = 6 - это нужное нам окно
        If objWindow.Type = 6 Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next
    'вводим пароль и подтверждаем ввод
    SendKeys "~1234~", True: SendKeys "{ENTER}", True
    'здесь Ваш код по внесению изменений в проект
    Set objVBProject = Nothing: Set objVBComponent = Nothing: Set objWindow = Nothing
    ActiveWorkbook.Close True
End Sub

Добавлено через 3 минуты

Visual Basic

Set objVBProject = ActiveWorkbook.VBProject
    'просматриваем все окна проекта в поисках окна снятия защиты
    For Each objWindow In objVBProject.VBE.Windows
        ' Type = 6 - это нужное нам окно
        If objWindow.Type = 6 Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next
    'вводим пароль и подтверждаем ввод
    SendKeys "~~", True: SendKeys "{ENTER}", True    
      If ActiveWorkbook.VBProject.Protection = 1 Then
        MsgBox "VBProject выбранной книги защищён." & vbCrLf & _
             "     Компоненты не будут удалены.", vbExclamation, "Отмена выполнения"
            End If
For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
        On Error Resume Next
        With oVBComponent
            Select Case .Type
            Case 1    'Модули
 
 
                .Collection.Remove oVBComponent
            Case 2    'Модули Класса
                .Collection.Remove oVBComponent
            Case 3    'Формы
                .Collection.Remove oVBComponent
            Case 100    'ЭтаКнига, Листы
                    lCountLines = .CodeModule.CountOfLines
                    .CodeModule.DeleteLines 1, lCountLines
            End Select
        End With
Next
    Set oVBComponent = Nothing

Добавлено через 2 минуты
"~~" - ваш пароль

@Ermak27 · 04.02.2013, 10:35 **[ТС]**

Alex77755, подскажите как заново поставить пароль, с помощью vba

@Alex77755 · 04.02.2013, 10:44

Во первых: А зачем? зачем защищать пустой проект?

И вторая беда можно сохранить файл так чтобы он полностью очистил весь код в макросе

@Ermak27 · 04.02.2013, 11:50 **[ТС]**

Alex77755,

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

Visual Basic

1 2	Cells.Locked = True ActiveSheet.Protect

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

Добавлено через 5 минут
Он очищает не сохраненный файл а рабочий файл, мне нужна чтобы чистил который сохраняю

Visual Basic

Sub red_row()
'Application.Worksheet_BeforeDoubleClick = False
Cells.Locked = True
ActiveSheet.Protect
ActiveWorkbook.Save
'Sheets("Услуги").Unprotect Password:="111222"
On Error Resume Next
    Folder$ = "D:\" & Date & "\" '& Worksheets(1).Range("a2") & "\"
    MkDir Folder$    ' создаем папку, если её ещё нет
 
    Filename = Folder & "Питкяранта.xls"    ' полный путь к создаваемому файлу
 
    ' копируем активный лист (при этом создаётся новая книга)
   Err.Clear: ActiveSheet.Copy: DoEvents
    If Err Then Exit Sub    ' произошла какая-то ошибка при попытке копирования листа
 
    ' сохраняем файл под заданным именем в формате Excel 2003
   ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
    ' закрываем сохранённый файл
   ActiveWorkbook.Close False
   
   Set objVBProject = ActiveWorkbook.VBProject
    'просматриваем все окна проекта в поисках окна снятия защиты
    For Each objWindow In objVBProject.VBE.Windows
        ' Type = 6 - это нужное нам окно
        If objWindow.Type = 6 Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next
    'вводим пароль и подтверждаем ввод
    SendKeys "rhjn", True: SendKeys "{ENTER}", True
      If ActiveWorkbook.VBProject.Protection = 1 Then
        MsgBox "VBProject выбранной книги защищён." & vbCrLf & _
             "     Компоненты не будут удалены.", vbExclamation, "Отмена выполнения"
            End If
For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
        On Error Resume Next
        With oVBComponent
            Select Case .Type
            Case 1    'Модули
 
 
                .Collection.Remove oVBComponent
            Case 2    'Модули Класса
                .Collection.Remove oVBComponent
            Case 3    'Формы
                .Collection.Remove oVBComponent
            Case 100    'ЭтаКнига, Листы
                    lCountLines = .CodeModule.CountOfLines
                    .CodeModule.DeleteLines 1, lCountLines
            End Select
        End With
Next
    Set oVBComponent = Nothing
End Sub

Добавлено через 21 минуту
Он очищает не сохраненный файл а рабочий файл, мне нужна чтобы чистил который сохраняю это я исправил

Добавлено через 28 минут
А как сделать чтобы удалялось только отпределнный код, например

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
' .......
 
End Sub

@Alex77755 · 04.02.2013, 12:16

Visual Basic

    ' закрываем сохранённый файл
   ActiveWorkbook.Close False
   
   Set objVBProject = ActiveWorkbook.VBProject

Ну правильно!
Сохраненный файл закрыл! Рабочий стал активным. Трёшь в нём
Удаляй до закрытия файла. И для надёжности делай обращение явным, а не АктивеБук:
Примерно так(не проверяю - пишу на коленке)

Visual Basic

NewName = "Питкяранта.xls" 
 Filename = Folder & NewName 
With Workbooks(NewName) 
Set objVBProject = .VBProject

А уже потом закрывать

Добавлено через 7 минут

Visual Basic

1	.CodeModule.DeleteLines 1, lCountLines

Эта строка удаляет строку кода по номеру.
Удалять лучше снизу, что бы не сбивался счётчик

@Ermak27 · 04.02.2013, 12:56 **[ТС]**

Alex77755, я где то на сайте видел как можно удалить только листы, просто у меня будет стоят защита на сохраненном файле, а в ЭтаКнига прописан код для группировки, вот и нужно чтобы только удалял макрос в листах

@Alex77755 · 04.02.2013, 13:17

Visual Basic

1 2	Select Case .Type Case 100 'ЭтаКнига, Листы

Добавлено через 3 минуты
Ну сделай проверку на имя!!

Visual Basic

Sub QWERT()
For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
        With oVBComponent
            Debug.Print oVBComponent.Name
        End With
Next
End Sub

@Ermak27 · 04.02.2013, 13:17 **[ТС]**

Alex77755, это я видел, как сделать только листы удалять? И почему после завершения открывается VBA окно, как сделать чтобы не открывалось он а файл сохранялся и закрывался

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	04.02.2013, 10:35 [ТС]	14
	Alex77755, подскажите как заново поставить пароль, с помощью vba 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	04.02.2013, 10:44	15
	Во первых: А зачем? зачем защищать пустой проект? И вторая беда можно сохранить файл так чтобы он полностью очистил весь код в макросе 1

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,086
	01.02.2013, 18:45	2
	А код то нужен или нет? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	01.02.2013, 19:17	3
	Просто информация: при копировании листа, если в ячейке больше 255 символов, то остальной текст в ячейке обрезается. Если копирование происходит с помощью VBA, то никаких предупреждений не выскакивает о том, что данные будут потеряны. 0

@~~Апострофф~~ Заблокирован
	02.02.2013, 10:16	5
	Alex77755, Вы забыли упомянуть про необходимые подготовительные операции (для Excel 2003 они выглядят так) - 1

@~~Апострофф~~ Заблокирован
	03.02.2013, 19:20	7
	Ermak27, Сохранение листа книги в файле - проблема с защитой листа и привязкой макросов 1

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	03.02.2013, 19:39 [ТС]	8
	Апострофф, у меня оффис 2007 там нет такой надписи в VBA 0

@~~Апострофф~~ Заблокирован
	03.02.2013, 19:49	9
	..... Миниатюры 1

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	03.02.2013, 20:01 [ТС]	10
	Апострофф, это у меня стоит 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	04.02.2013, 08:31 [ТС]	12
	Alex77755, у меня стояла защита на редактирование кода, но я ее снял. почему все равно ругается и как можно снять и поставить ее опять, с помощью кода? 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	04.02.2013, 12:56 [ТС]	18
	Alex77755, я где то на сайте видел как можно удалить только листы, просто у меня будет стоят защита на сохраненном файле, а в ЭтаКнига прописан код для группировки, вот и нужно чтобы только удалял макрос в листах 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	04.02.2013, 13:17 [ТС]	20
	Alex77755, это я видел, как сделать только листы удалять? И почему после завершения открывается VBA окно, как сделать чтобы не открывалось он а файл сохранялся и закрывался 0