Automatyczna naprawa za pomocą Narzędzia do naprawy systemu podczas uruchomienia
Naprawa 1
Włóż do napędu płytę z odpowiednią wersją instalacyjną System. Rożne wersje systemu nie pomogą i naprawa BCD sie nie uda
Uruchom ponownie komputer.
Kiedy pojawi się napis „Press any key to boot from CD or DVD” wciśnij dowolny klawisz.
Zatwierdzamy klawiatury i region następny ekran
Kliknij: „Napraw komputer”
Teraz kreator spróbuje odnaleźć zainstalowany system. Upewnij się, że jest zaznaczona pierwsza opcja – „Użyj narzędzi odzyskiwania (…)” i kliknij dalej.
Jeżeli pojawi się okienko z zapytaniem czy chcesz przywrócić system kliknij „Anuluj”
Pojawi się kolejne okno. Wybierz ostatnią opcję „Wiersz poleceń”
W okienku które się pojawiło wpisz:
bootrec /fixmbr – aby naprawić uszkodzony sektor.
bootrec /fixboot –
bootrec /rebuildbcd
Powinien znaleźć zainstalowane wersja systemu Windows .Potwierdzasz naprawę klawiszem T
Naprawa MBR
bootrec.exe /fixmbr bootsect.exe /nt60 all /force /mbr (narzędzie znajduje się na płycie instalacyjnej w folderze x:\boot; przełącznik /force wymusza nadpisanie mbr Te polecenia pozwalają naprawić główny rekord rozruchowy (MBR).
Naprawa boot sectora
bootrec.exe /fixboot bootsect /nt60 C:\ (naprawa partycji c:) bootsect /nt60 SYS (naprawa partycji systemowej) bootsect /nt60 ALL (naprawa wszystkich partycji) Polecenia do naprawy boot sektora partycji
Odbudowa magazynu BCD
Komenda: bootrec.exe /rebuildbcd polecenie skanuje dysk w poszukiwaniu instalacji Windows 7 i pozwala dodać daną instalacje do magazynu BCD. Komunikat, że zidentyfikowano 0 instalacji oznacza, że nie znaleziono żadnych nowych instalacji oprócz tych, które już znajdują się na liście rozruchu.
Włóż do napędu płytę z odpowiednią wersją instalacyjną System. Rożne wersje systemu nie pomogą i naprawa BCD sie nie uda
Uruchom ponownie komputer.
Kiedy pojawi się napis „Press any key to boot from CD or DVD” wciśnij dowolny klawisz.
Zatwierdzamy klawiatury i region następny ekran
Kliknij: „Napraw komputer”
Teraz kreator spróbuje odnaleźć zainstalowany system. Upewnij się, że jest zaznaczona pierwsza opcja – „Użyj narzędzi odzyskiwania (…)” i kliknij dalej.
Jeżeli pojawi się okienko z zapytaniem czy chcesz przywrócić system kliknij „Anuluj”
Pojawi się kolejne okno. Wybierz ostatnią opcję „Wiersz poleceń”
W okienku które się pojawiło wpisz:
bootrec /fixmbr – jeżeli chcesz zapisać główny sektor rozruchowy zgodny z Windows 7. I/lub:
bootrec /fixboot – aby naprawić uszkodzony sektor.
bootrec /rebuildbcd
Powinien znaleźć zainstalowane wersja systemu Windows .Potwierdzasz naprawę klawiszem T
LUB
Wpisz Bootrec.exe, a następnie naciśnij klawisz ENTER.
Opcje narzędzia Bootrec.exe Ta procedura gwarantuje pełną odbudowę magazynu BCD. W celu jej wykonania wpisz następujące polecenia w wierszu polecenia:
ren c:\boot\bcd bcd.old (zmieniamy nazwę dotychczasowego magazynu)
bootrec /RebuildBcd
Link https://answers.microsoft.com/pl-pl/windows/forum/windows_xp-windows_install/przywracanie-sektora-rozruchowego-windows-7/b1a02e8a-41fe-45dd-96dd-7726ed135ec2
Windows XP
Edycja i konfigurowanie BCD Edycja jak w XP: Zakładka Uruchamianie i odzyskiwanie we Właściwościach systemu czy MSConfig.exe, karta Rozruch. BCDEdit.exe służy do zarządzania magazynem BCD, obsługa z Wiersza poleceń, zastępuje narzędzie Bootcfg.exe z Windows XP. bcdedit /enum – wyświetla listę wpisów w magazynie
Podczas instalowania programu SQL Server przy użyciu trybu uwierzytelniania systemu Windows, domyślnie „ sa” konto jest wyłączone.
Czasami, ze względu na żądanie użytkowników / klientów, może być konieczne, aby umożliwić sa konta. Trzeba zmienić tryb uwierzytelniania serwera SQL z Windows Authentication Mode do SQL Server i Windows Authentication Mode używać sa konta.
Aby zmienić tryb uwierzytelniania:
Wykonaj czynności wymienione poniżej, aby zmienić tryb uwierzytelniania z uwierzytelniania systemu Windows do programu SQL Server i Windows Authentication. Trzeba pamiętać tym, usługa SQL Server musi ponownie uruchomić, aby ta zmiana skuteczne .
1. Zaloguj się do instancji serwera SQL przy użyciu programu SQL Server Management Studio. Kliknij prawym przyciskiem myszy na przykład bazy danych, a następnie przejdź do właściwości .
2. Na stronie Właściwości serwera kliknij Bezpieczeństwa . Kliknij na przycisk obok SQL Server i Windows Authentication Mode , a następnie kliknij przycisk OK, aby zamknąć stronę Właściwości serwera.
3. Po kliknięciu na przycisk OK otrzymamy następujący ekran:
Jak wspomniano wcześniej, musimy ponownie uruchomić usługę SQL Server, aby ta zmiana skuteczne. Po ponownym uruchomieniu programu SQL Server, tryb uwierzytelniania zostanie zmieniona na SQL Server i Windows Authentication Mode .
Włączenie sa Login:
1. Podłącz do instancji SQL Server za pomocą SSMS i udać się do bezpieczeństwa . Rozwiń Security, przejdź do Logins .
2. Można zobaczyć sa konto jest wyłączone podczas instalowania programu SQL Server przy użyciu Windows Authentication Mode.
3. Kliknij prawym przyciskiem myszy na sa konta i przejdź do Logowanie Właściwości. Określ złożone hasło dla konta SA. Domyślnie polityka Wymuszanie hasło jest zaznaczone. (jeśli nie chcesz, aby zapewnić kompleksową hasło dla konta sa, można usunąć zaznaczenie tej opcji. Jednak jest to nie zalecane ).
4. Kliknij statusu strony. Domyślnie konto sa zostaną wyłączone. Kliknij na Enabledprzycisk, aby włączyć konto SA. Kliknij Ok , aby zamknąć sa Właściwości Login .
Zatem konto SA jest włączona i będzie można zalogować się do instancji SQL przy użyciu konta sa.
Jeśli chcesz użyć skryptu, aby umożliwić sa konta, możesz użyć skryptu wymienionych poniżej:
1: USE [master]
2: GO
3: ALTER LOGIN [sa] WITH PASSWORD=N’z43VGYT@Iu*60i’
4: GO
5: ALTER LOGIN [sa] ENABLE
6: GO
ThisWorkbook.Path – Właściwość Path skoroszytu Excela określa pełną ścieżkę katalogu, w którym znajduje się dany plik – dzięki czemu możemy sobie odpuścić ścieżkę F:\Problem_solving, i dzięki czemu gdzie byśmy nie przenieśli katalogu głównego (Problem_solving) makro nadal będzie działać. Workbooks.Open(Filename:=plik) – metoda odpowiedzialna za otwarcie konkretnego pliku wb.Saved = True – zapisywanie otwartych plików – dzięki czemu przed zamknięciem nie będzie excel wyświetlał powiadomień z zapytaniem czy zapisać. wb.Close – metoda Close – zamyka plik
KOD DLA POTOMNOŚCI
Sub problem_solving()
Application.ShowWindowsInTaskbar = False ’ wyłaczamy aktualizacje taskbara
Application.ScreenUpdating = False ’ wylaczamy aktualizacje tego co sie dzieje na ekranie podczas pracy makra
Dim kom1 As Range ’ zestawienie
Dim kom2 As Range ’ filestocheck
Dim newkom1 As Range ’ arkusz1 – dla plików z których pobieramy dane
For Each kom1 In Sheets(„zestawienie”).Range(„a4:a15”) ’ zakres w arkuszu zestawienie w którym znajdują się nazwy działów
'tworzymy i zerujemy sobie zmienne dla każdego miesiąca
styczen = 0
luty = 0
marzec = 0
kwiecien = 0
maj = 0
czerwiec = 0
lipiec = 0
sierpien = 0
wrzesien = 0
pazdziernik = 0
listopad = 0
grudzien = 0
starsze = 0
rest = 0
For Each kom2 In Sheets(„FilesToCheck”).Range(„A4:a15”) ’ zakres w arkuszu FilesToCheck w ktorym znajduja się nazwy dzialow
brak_pliku = False
If (kom1.Value = kom2.Value) Then 'jesli dzial z zestawienia bedzie sie rownal dzialowi z filestochec to wykonaj to:
lokalizacja = kom2.Offset(0, 1).Value
nazwa_pliku = kom2.Offset(0, 2).Value
kol = kom2.Offset(0, 3).Value ’ kolumna która należy przeszukiwac w plikach do sprawdzenia
wier = kom2.Offset(0, 4).Value ’ wiersz od ktorego należy rozpocząć przeszukiwania w plikach do sprawdzenia
plik = ThisWorkbook.Path & „\” & lokalizacja & „\” & nazwa_pliku ’ sciezka do konkretnego pliku
If Dir(plik) <> „” Then ’ sprawdzamy czy plik jest pusty / jesli nie jest to wchodzimy do środka
Set wb = Workbooks.Open(Filename:=plik) ’ ustawiamy zmienna wb na dany skoroszyt
wb.Worksheets(„Arkusz1”).Range(kol & wier).End(xlDown).Select ’ szukamy ostatniego wiersza do przeszukiwania
ostatni_wier = ActiveCell.Row + 1 ’ ustawiamy ostatni wolny wiersz
For Each newkom1 In wb.Worksheets(„Arkusz1”).Range(kol & wier & „:” & kol & ostatni_wier) ’ sprawdzamy zakres danych w plikach z których chcemy zebrać dane
If (newkom1.Value = „S”) Then
rok = Year(newkom1.Offset(0, -2).Value)
miesiac = Month(newkom1.Offset(0, -2).Value)
If (rok < Year(Now)) Then
starsze = starsze + 1
Else '(rok < Year(Now))
Select Case miesiac ’ instrukcja warunkowa case dzięki której mozemy podliczyć otwarte projekty w zależności od miesiąca
Case 1: styczen = styczen + 1
Case 2: luty = luty + 1
Case 3: marzec = marzec + 1
Case 4: kwiecien = kwiecien + 1
Case 5: maj = maj + 1
Case 6: czerwiec = czerwiec + 1
Case 7: lipiec = lipiec + 1
Case 8: sierpien = sierpien + 1
Case 9: wrzesien = wrzesien + 1
Case 10: pazdziernik = pazdziernik + 1
Case 11: listopad = listopad + 1
Case 12: grudzien = grudzien + 1
Case Else: rest = rest + 1
End Select
autor http://www.hackwars.pl/vba-excel-automatyczne-tworzenie-arkuszy-o-okreslonej-nazwie/
Worksheets.Count – zwraca liczbę arkuszy w skoroszycie Sheets.Add(After:=Sheets(Worksheets.Count)) – dodaje nowy arkusz po bieżącym WS.Name = MonthName(i, True) – zmienia nazwę ustawionego skoroszytu na skrót nazwy kolejnego miesiąca (gdybyśmy chcieli użyć nazwy całego miesiąca zmieniamy wartość True na False)
Opis
tym wpisie przedstawiam jak automatycznie utworzyć 12 arkuszy, których nazwa jest skrótem każdego miesiąca.
Na początku utwórzmy nowy plik Excela z obsługą makr.
Jeśli w pliku znajduje się więcej niż jeden arkusz należy usunąć nadwyżkę:)
Public Sub DodajArkusze()
'deklarowanie zmiennych
Dim i As Integer
Dim WS As Worksheet
i = 1
'rozpoczęcie pętli
For i = 1 To 12
If i > Worksheets.Count Then
'jeśli i jest większa od liczby arkuszy w skoroszycie (pliku) to
'ustawia zmienną WS na nowo dodany arkusz
Set WS = Sheets.Add(After:=Sheets(Worksheets.Count))
Else
'ustawia zmienna WS na pierwszy arkusz z pętli
'tu pętla zagląda tylko za pierwszym razem
Set WS = Sheets(Worksheets.Count)
End If
'zmienia nazwę aktualnie ustawionego arkusza na skrót nazwy miesiąca
WS.Name = MonthName(i, True)
